$*=\&(|<www.perlmonks.org>,@=={$}=>,%\,%\}.$*,*_=\$@,
eval'&$->obfu',s<^(\w+)\s(...).*>!$2!,$.=$_,
eval'@$->obfu',s+.*w..(.)... . (.)(.)..... .. ..(.).*+'$4$3$2$1'+;
$,=" {print $_}",$,=~s/\n//g;$.=~s/\n//g;
$=[0]=~s<(.).*~(\w{6})$>@"$. $1$2$,"@e.eval$=[0]&&s<.*>@&Howoorg@e;