Select Code to Download

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

#!/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;