DB<136> $str ="a123bc45de"
 => "a123bc45de"

  DB<137> $str2= reverse $str
 => "ed54cb321a"

  DB<138> $str2 =~ s/(\p{N}+)/reverse $1/ge
 => 2

  DB<139> $str2
 => "ed45cb123a"