while <FH>
{
   if ($_ eq $external_info) {
       print "great\!"; last;
   }
}