Select Code to Download

open OUTPUT, join "", map chr,112,114,116,51,46,116,120,116;
$\="";
$/=\1;

while(<OUTPUT>)
{
...
    $_=$\;
    $\ = substr((push @w,$\),0,0) if $\=~ /\s$/msg;
}

print grep{ /^\b.*(p).*$/msgi } @w