if ($lines{$_] eq $lines2[$_]) {


##</code><code>##

$str2 =~ s/./(?:($&)|.)/g;

print map{$_||'*'} $str1 =~ /$str2/