Select Code to Download

#!/usr/bin/perl
use strict;
...

__END__
123456789111222333444555666777888999xxxyyyzzzZ

$VAR1 = [
          '123456789',
...
...
          'zzz'
        ];