Select Code to Download

use warnings;
use strict;
...
$pc = $stack [-1];
pop @stack;
}

__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.

use warnings;
use strict;
...
$OokCode =~ s/(?<!O)o/Ook! Ook. /g;

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