Select Code to Download

sub h{pop=~/(?:\w+\W*){4}(\w+)/}

print STDERR"Can't find label TPC at -e line 5."

sub f{pop=~/^(.*?)\1+$/}

sub h{$_=pop;s/(..)/chr hex $1/eg;(/../g)}

sub g{$m=pop;map{$m=$_ if $_>$m}@_;$m}

sub v{sort{eval'$a=~/([aeiou])/;$1'cmp eval'$b=~/([aeiou])/;$1'}@_}