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

my $str = "TXXXABCDGXXXCCCDTGYYYCCCYYYCC";
$str =~ m/(XXX.*?YYY)/g;  
print "$1\n";