map {
        $\.=chr(96+( $b | $_ >> 4 & 63 || 0xc0 ) & 255);
        $b =$_ <<8>>4 & 0xf0 
    }
    map { ord }
    map { 
        utf8::decode($_);
        m/([^Â])/g
    }
    qq(¡Q1@\0\cPàñ@\xc2\x80Q \cA\0Q À\0\xc2\x80\cP0°Q );
    $\.=qq[,\n],
    print''