#!/usr/bin/perl -w
use strict;
use Data::Dumper::Simple;

my $string = "TXXXABCDGXXXCCCDTGYYYCCCYYYCC";

my @wanted = split /XXX|YYY/, $string;

print Dumper(@wanted);

##</code><code>##

@wanted = (
            'T',
            'ABCDG',
            'CCCDTG',
            'CCC',
            'CC'
          );