#!/usr/bin/perl
$*=\&(|<www.perlmonks.org>,@=={$}=>,%\,%\}.$*,*_=\$@,
eval'&$->obfu',s<^(\w+)\s(...).*>!$2!,$.=$_,
eval'@$->obfu',s+.(.)(.)'(.)\s(.).(.).\s.(.).(.)(.). "...(.)" ....... . (.)..(.)... .(.) ..(.)...(.)*+'$13$9s$3 $1$2$8$3$7$6$12 $10$6$12$5 $7$1$4$11$6$12'+,$,=" {print $_}",$=[0]=~s<(.).*~(\w{6})$>@"$.$1$2$,"@e.eval$=[0]&&s<.*>@&Howoorg@e;