Here's a solution for one interpretation of your question:

#!/usr/bin/perl
use strict;
use warnings;
(my $string = shift()) =~ s/(\d+)/reverse $1/ge;
print "$string\n";
[download]

Save as foo.pl and then call it as

to get output like