Select Code to Download

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

name_21 name21