Select Code to Download

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

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