Combine regex with reverse.

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

OUTPUT:

name_21 name21
[download]