The solution provided by Perlbotics extends to values where there is at least a non-numeric character followed by at least a numeric character.

You can change it to something else by changing the regular expression (and the anonymous subroutine provided to sort, if required).