POGAACK

POGAACK is a Brainfuck-similar programming/joke language specially designed for chicken.

It has 9 commands: Command  Brainfuck eqivalent pogack! > pogaack! < pogaaack! + poock! - pogack? [ pogaack? ] pogaaack? . poock? ,

Ninth Command is pock!, which repeats the previous command.

Hello World (Chicken language: POGAACK POCK POCK): pogaaack! pock! pock! pock! pock! pock! pock! pock! pogack? pogack! pogaaack! pock! pock! pock! pock! pock! pock! pock! pock! pock! pogack! pogaaack! pock! pock! pock! pock! pock! pock! pock! pogack! pogaaack! pock! pock! pock! pock! pock! pock! pock! pock! pogack! pogaaack! pock! pock! pock! pogack! pogaaack! pogaack! pock! pock! pock! pock! poock! pogaack? pogack! pogaaack? poock! pogaaack? pogack! pock! poock! pogaaack? pogaack! pogaaack! pogaaack? pogaaack? pogaaack! pock! pogaaack? pogack! pogaaack! pock! pock! pock! pogaaack? pogack! pogaaack? pogaack! pock! pock! pogaaack! pogaaack? poock! pogaaack? pogack! pogaaack? pogack! pogaaack? pogack! pogaaack? pogaack! pock! pock! pogaaack! pogaaack? poock! pogaaack? pogack! pogaaack? pogack! pogaaack? pogack! pock! pogaaack! pock! pogaaack?

Implementation
%c=qw(r ;$p+=1 l ;$p-=1 u ;D+=1 d ;D-=1 b ;D&=255;while(D){ e ;D&=255;} o ;print+chrD i ;D=ord(getc) x +1); $/=$,; $_=<>; $_=uc$_; s/POGACK!/r/g; s/POGAACK!/l/g; s/POGAAACK!/u/g; s/POOCK!/d/g; s/POGAAACK\?/o/g; s/POOCK\?/i/g; s/POGACK\?/b/g; s/POGAACK\?/e/g; s/POCK!/x/g; s/[^rludiobex]//g; s/./$c{$&}/g;s[D]'$b[$p]'g; eval
 * 1) !/usr/bin/perl