Select Code to Download

'' =~ (
     '(?{'
...
    . ( '^@@;.|' ^ '?,,^@^' )
    . ',$/})'
      )

my @s = (
    '+', ']', ')', '.', ']', '[',
...
        $r, ord $r,
        $l ^ $r, ord $l ^ ord $r;
}