Select Code to Download

Select or download this


    map { s/Z/\x24/g; eval() } map { m/(.*)/ } q{THE PROGRAM};
...
        s/Z/\x24/g; # Replace all 'Z' with '$' (to replace the missing
+ sigils)
        eval()      # and do a string eval
    }

Select or download this


    map {
...
    $\.=qq[,\n],
    print''

Select or download this
```
   $\.=qq[,\n],
   print ''
```

Select or download this


   Char Ord   Bits
...
    1010 0111   -> 167  -> \xA7
    0101 ....

Select or download this

   space    32    01100000
   a        97    01100001 
to u       117    01110101

Select or download this


    (each separate char)     # The string split into a list of chars
...
            & 0xf0           # and zero all but bits 5-8
    }

Select or download this


    Char Perl/Latin-1    UTF-8
...
    é    A9              C3 A9
    °    B0              C2 B0

Select or download this
```
    map{
...
    }
    qq(The string)
```

Select or download this


    ¡Q1@\0\cPàñ@\xc2\x80Q \cA\0Q À\0\xc2\x80\cP0°Q