Help for this page

Select Code to Download


  1. or download this
    use warnings;
use strict;
...
$pc = $stack [-1];
pop @stack;
}
  2. or download this
    __DATA__
Ook. Ook? Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook.
...
Ook! Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook.
Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook.
Ook! Ook.
  3. or download this
    use warnings;
use strict;
...
$OokCode =~ s/(?<!O)o/Ook! Ook. /g;

print ((substr $OokCode, 0, 70, "") . "\n") while length $OokCode;