return grep { $u{ $_ } ? ( $u{ $_ }-- , $_ ) : () } split //, $str2;

##</code><code>##

return grep --$u{ $_ } >= 0, split //, $str2;