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