Select Code to Download

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

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

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

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

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

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