##</code><code>##

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

##</code><code>##

#!/path/to/perl -l

...

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