$found = 0;
while ($line=<INFILE>) 
{
   chomp $line;
   if ($line=~/^COMPND[\s]{3}3/) 
   {
       $found = 1;
       # other processing here;
   }
}
$lastchain = '@' unless $found;