use Sort::Key::Radix 'ukeysort';
my @sorted = ukeysort { /(\d+)/; $1 } @unsorted;