my $line = "# 4+0_129769/14-98 Exp number";
my @parts = split / /, $line;

if($parts[1] eq $id)
{
   print "coolo\n";
}
else
{
   print "mist\n";
}