use List::MoreUtils qw(indexes);
my $a = '0157953';
my $b = 'abcyefzaa';
my $new = $a;
substr $new, $_, 0, 'I' foreach ( indexes { $_ =~ /^[yz]$/ }
                                  split(//, $b) );
print $new, "\n";