Select Code to Download

#!/usr/local/bin/perl -w

...
aaabbacca
aaabbaccb
ababbbddd

$VAR1 = [
          {
...
                     }
          }
        ];