$\=chop.$\,$a=$/x/./for($a,<>)x28;print