Untitled

$x = q('
oax3o3x  4o5      x2o     a3x2o4cx3     o3x     4o5       x2b3      o2x2 ocax3o3x4o5x2b3o2x2o2x2oax3o3x4o5x2b3o2x2oa3ax3o3x4o5x2o2a3x2o5
ax3  o3x 4o5    x2  b2    o3x   2o3   cx  3o    3x4       o5 x2b  2o2 x2 o2cax3o3x4o5x2b2o2x2o2x2o2ax3o3x4o5x2b3o2x2oa3ax3o3x4o5x2b2o3x3
o4a   x3o3x4   o5x2b2o3   x2ocax3o3  x4o5x2b3   o2x       2o  2a2ax3  o3 x4o5x2o2a3x2o5ax3o3x4o5x2b3o2x2o5ax3o3x4o5x2b2o3x2oc
ax3    o3x4o  5x2    b3o  2x2       o2a    2ax  3o3       x4          o5 x2b2o2x2o3x2oax3o3x4o5x2o2a3x2o5ax3o3x4o5x2b2o3x3o4ax3o3x4o5x2b2o3x2o
3cx     3o3x 4o5      x2b 2o3      x2o      2x2 oax3o3x4o 5x          2b 2o2x2o3a2ax3o3x4o5x2b2o3x2ocax3o3x4o5x2b3o2x2o2a2ax3o3x4o5x2o2a2x2o3x2');
$x =~ s/\W//g;
$x =~ s/d/bb/g;
$x =~ s/c/aa/g;
$x =~ s/b/ox/g;
$x =~ s/a/xo/g;
$x =~ s/x(\d)/1 x $1/ge;
$x =~ s/o([2-50])/0 x $1/ge;
$x =~ s/o/0/g;
$x =~ s/x/1/g;
#print $x . "\n";
#print bin2asc($x);
sub bin2asc 
{
    @_ = split ' ', $_[0] if @_ == 1;
    my @chars;
    for (@_) 
        {
        my $asc = unpack "C", pack "B8", $_;
        push @chars, chr($asc);
        }
    return wantarray ? @chars : join "", @chars;
}