sub hole{(pop=~/\w+/g)[4]} # 16
####
Can't find label TPC at -e line 5.
##
##
perl -e"die qq{Can't find label TPC at -e line 5.\n}" # 53
perl -e '' -e '' -e '' -e '' -e'goto TPC' # 41
perl -e0 -e, -e, -e';' -e'goto TPC' # 35
perl -e{ -e{ -e} -e} -e'goto TPC' # 33
perl -e'#line 5' -e'goto TPC' # 29
perl -e'#line 5' -egoto+TPC # 27
##
##
perl -e"
goto TPC"
##
##
input output
'aaaaaa' 'a'
'ababab' 'ab'
'aabaab' 'aab'
'ababaa' ''
##
##
sub hole{pop=~/^(.+?)\1+$/;$1} #20
##
##
5065726c206861636b6572
->
('P', 'e', 'r', 'l', ' ', 'h', 'a', 'c', 'k', 'e', 'r')
##
##
sub hole{grep$_=$_&&chr hex,split/(..)/,pop} # 34
sub hole{$_=pop;s/../chr hex$&/ge;/./g} # 29
sub hole{map{chr hex}pop=~/../g} # 32
sub hole{split//,pack'H*',@_} # 19
sub hole{(pack'H*',@_)=~/./g} # 19
sub hole{$_=pack'H*',@_;/./g} # 19
##
##
sub hole{$m=pop;$m=($m,$_)[$m<$_]for@_;$m} # 32
sub hole{$m=pop;$_>$m&&($m=$_)for@_;$m} # 29
sub hole{$m=pop;$_>$m?$m=$_:1for@_;$m} # 28
##
##
e.g.: hole('dog', 'cat', 'fish', 'duck', 'lemur')
returns: ('cat', 'lemur', 'fish', 'dog', 'duck')
##
##
sub hole{map{$_->[0]}sort{$a->[1]cmp$b->[1]}map{[$_,m/[aeiou]/g]}@_} # 58
sub hole{sort{($a=~/([aeiuo])/)[0]cmp($b=~/([aeiou])/)[0]}@_} # 51
sub hole{sort{($a=~($v='([aeiou])'))[0]cmp($b=~$v)[0]}@_} # 47
sub hole{map{substr$_,1}sort map{/[aeiou]/;$&.$_}@_} # 42
sub hole{map/.(.+)/,sort map/[aeiou]/&&$&.$_,@_} # 38