Select Code to Download

print "$_\n" for $line1 =~ /[$line2]/g;

#!/path/to/perl -l

...

print for $line1 =~ /[$line2]/g;