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

my $string = "TXXXABCDGXXXCCCDTGYYYCCCYYYCC";

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

print Dumper(@wanted);