(split/[^\w_]/,pop)[4] 1234567890123456789001 #### perl -e'\ \ \ \ goto TPC' #### map{chr(hex)}unpack("A2"x11,pop) 1234567890123456789012345678901 #### $x=shift;map{$x=$_ if$_<$x}@_;$x 12345678901234567890123456789012 #### sort{($a=~/([aeoui])/)[0]cmp($b=~/([aeiou])/)[0]}@_} 1234567890123456789012345678901234567890123456890123