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