$_=99;while($_){for$l(1..4){@_=("of The Perl Journal",
"on the wall");print$l<3?$_:$l&4?--$_?$_:"No more":$l&
3?$_>1?"if one of those":"if that":e," cop",$_^1?"ies "
:"y ",$l^3?$l&2?"$_[0],":$l&4?"@_.\n":"@_,":
"should happen to fall,","\n";sleep 2if$_}}
