# 4 -- 19 chars sub g4 { split//,pack"H*",@_ } # 6 -- 47 chars sub g6 { sort{($a=~($_='([aeiou])'))[0]cmp($b=~$_)[0]}@_ }