##
XXXABCDGXXXCCCDTGYYYCCCYYY
XXXABCDGXXXCCCDTGYYY
XXXCCCDTGYYYCCCYYY
XXXCCCDTGYYY
##
##
#!/usr/bin/perl -w
use strict;
use Data::Dumper;
use Carp;
my $str = "TXXXABCDGXXXCCCDTGYYYCCCYYYCC";
$str =~ m/(XXX.*?YYY)/g;
print "$1\n";