in reply to a sort question

Consider Sort::Versions, but do read tye's advice in this node about its shortcomings first.
--
print map{chr}unpack(q{A3}x24,q{074117115116032097110111116104101114032080101114108032104097099107101114})

In Section Seekers of Perl Wisdom