# 1 -- 16 chars
sub g1 { (pop=~/\w+/g)[4] }


# 2 -- 19 chars (23 with newlines)
perl -e'goto\
\
\
\
TPC'


# 3 -- 23 chars
# note: using $ instead of \z is *wrong*
# note: using . without /s is *wrong*
sub g3 { pop=~/^(.*?)\1+\z/s&&$1 }


# 4 -- 12 chars
sub g4 { pack"H*",pop }


# 5 -- 29 chars
sub g5 { $x=pop;$x<$_&&($x=$_)for@_;$x }


# 6 -- 49 chars
sub g6 { sort{($a=~/[aeiou]/g)[0]cmp($b=~/[aeiou]/g)[0]}@_ }