Select Code to Download

#!/usr/bin/perl -w
use strict;
...
my @wanted = split /XXX|YYY/, $string;

print Dumper(@wanted);

@wanted = (
            'T',
...
            'CCC',
            'CC'
          );