open OUTPUT, join "", map chr,112,114,116,51,46,116,120,116; $\=""; $/=\1; #### while() { $\="$\$_"; $_=$\; $\ = substr((push @w,$\),0,0) if $\=~ /\s$/msg; } #### print grep{ /^\b.*(p).*$/msgi } @w
## while() { $\="$\$_"; $_=$\; $\ = substr((push @w,$\),0,0) if $\=~ /\s$/msg; } ##
## print grep{ /^\b.*(p).*$/msgi } @w