DB<115> join "", reverse map { /\d/ ? $_ : scalar reverse $_ } split /(\d+)/, name_21
 => "21_eman"