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

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