(split/[^\w_]/,pop)[4]
1234567890123456789001

##</code><code>##

perl -e'\ 
\ 
\ 
\ 
goto TPC' 

##</code><code>##

map{chr(hex)}unpack("A2"x11,pop)
1234567890123456789012345678901

##</code><code>##

$x=shift;map{$x=$_ if$_<$x}@_;$x
12345678901234567890123456789012      

##</code><code>##

sort{($a=~/([aeoui])/)[0]cmp($b=~/([aeiou])/)[0]}@_}
1234567890123456789012345678901234567890123456890123