$s="asJti uohvbecnkr";@pi=qw/Moo moo Mooooo! Moo Moo moo?! Mooo! mooo! Moooo!
moo? Mooo moo mooo moo? Moo?! Moo moo?! moooo? Moo! mooo! Moo? moooo moo! Moo
Mooo! moo/;for(@pi){s!(m|M)(o+)(\?)?!($1eq'M'?1:2)*length($2)+($3&&$3eq'?'?1:
0)!ex;s/(.+)!/-$1/;$p=(($p||0)+$_)%16;print chr(vec($s,$p,8));}print$/;#Moo!?
Moo? In reply to Mad Cows? by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |