use strict;
use warnings;
my $string = '21eman 21_eman';
print scalar reverse($string =~ s/(\d+)/reverse $1/egr);

##</code><code>##

name_21 name21