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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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