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

  DB<113> join "", reverse map { /\d/ ? $_ : scalar reverse $_ } split /(\d+)/, $str
 => "ed45cb123a"