$_=q,$Ju=$_;s/([\t_\W\d \a\n])/other($1)/ge;for $per(@l) {hack(s/$per//)},;
@l=split /(?!..(?:...)*$)/,"Wordefgspy";sub hack {print$_,$/ unless$_[0]};
eval;sub other{$_[0]=~/(\s)/&&$1;}