substr $new, pos($b)-1, 0, 'I' while ( $b =~ /[yz]/g );