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

##</code><code>##

perl -e 'print "How sweet does a rose smell? "; chomp ($n = <STDIN>); $rose = "smells sweet to degree $n"; *other_name = *rose; print "$other_name\n"'