Select Code to Download

#!/usr/bin/perl -w
use strict;
...
__DATA__
a    b    c    d    .    f    g
A    B    C    .    E    F    G

$VAR1 = [
          'a',
...
          'G
'
        ];