say $line2 =~ /[$line1]/g;
say $line1 =~ /[^$line2]/g, $line2 =~ /[^$line1]/g;