while ( my $blah = <FILE> ) {
   if (my ($filename) = ($blah =~/(\w+\.pl)/i) ) {
	print "$filename was found.\n";
   } else {
	print "no match.\n";
   }
}