sub f{
(pop=~/w+/g)[4]
}

##</code><code>##

perl -e# -e# -e# -e# -egoto+TPC

##</code><code>##

sub f{
$p=$_=pop;1while(!/^($p){2,}$/&&$p=~s/.$//);$p
}

##</code><code>##

sub f{
$p=$_=pop;1while(!/^(\Q$p\E){2,}$/&&$p=~s/.$//s);$p
}

##</code><code>##

sub f{
map{chr hex$_}pop=~/../g
}

##</code><code>##

sub f{
$x=pop;map{$_>$x?$x=$_:0}@_;$x
}

##</code><code>##

sub f{
grep{s/.//}sort map{/[aeiou]/;"$&$_"}@_
}