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