My first block japh. Comment, good or bad.

$_="babbalboonaboobabooluaba"
;$_=""."s#b#.\b.\b.\b#;";eval
;s#(.*)#   \b\b\b#;$b="ja".";
print;\$_=\$b;";$b =~ s#\s+ja
;print;#\b#g;eval;$_=$b;s#ja.
.#p #;@b=split(/;/,$b);$_="\b
\b\b\b$b[0]";s#\s##;print;$_=
"211 401";$foo= chr((((100*3)
-80)/20)+21);@b=split(/$foo/,
$_);$i;foreach(@b){chomp($_);
chomp($_);$b[$i]=reverse($_);
$i++;};for(@b){print chr $_;}
[download]