#/usr/bin/perl -w use strict ; my $OO= sub{print(($_[0] ==3)?chr( 10 ):chr(66+ $_[0])) ;};my $o= qq Q oooo o0OOO0OOOo o0OOOOOOOOOOOo oOOOOOOO0OOOOOOo oO0OOOOOOOOOOO0OOo OOOOOOOOOOOOOOOO0O OOOOOOOOOOOO0OOOOO OOOOOOOOOOOOOOOO0O OOOOOOOOOOOOOOOO O0OO0OOOOOOO0O OO0OOO0OOO OOOOOO Q; my $O0 = 0; while ( $o=~ /0 (.*?) (?=0) /sgx) {my$O=$1;$O0=$O =~tr/O//;$OO->($O0)}

joecamel