Select Code to Download

TXXXABCDGXXXCCCDTGYYYCCCYYYCC

XXXABCDGXXXCCCDTGYYYCCCYYY 
XXXABCDGXXXCCCDTGYYY  
XXXCCCDTGYYYCCCYYY    
XXXCCCDTGYYY

#!/usr/bin/perl -w
use strict;
...
my $str = "TXXXABCDGXXXCCCDTGYYYCCCYYYCC";
$str =~ m/(XXX.*?YYY)/g;  
print "$1\n";