Select Code to Download

use strict;
use warnings;
...
0123456789ABCDEFGHIJKLMNOP_ PERL _ABCDCEFGHIJKLOMN_ PERL _P0123456789
ABCDEFGHIJKLMNOPPERLABCD PERL CEFGHIJKLOMNP
0123456789_ PERL _0123456789

$VAR1 = [
          [
...
            '_0123'
          ]
        ];