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