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