2003-07-05 brainf*ck to Ook! translater Perl #!/usr/bin/env perl # usage: ./bf2ook.pl < hello.bf > hello.ook while (readline(*STDIN)){ s/\>/Ook. Ook?/g; s/\</Ook? Ook./g; s/\+/Ook. Ook./g; s/\-/Ook! Ook!/g; s/\[/Ook! Ook?/g; s/\]/Ook? Ook./g; s/\./Ook! Ook./g; s/\,/Ook. Ook!/g; print }