Help for this page
my $str = "TXXXABCDGXXXCCCDTGYYYCCCYYYCC"; local our @matches; ... (?!) # Try again /x; print "$_\n" foreach @matches;
XXXABCDGXXXCCCDTGYYYCCCYYY XXXABCDGXXXCCCDTGYYY XXXCCCDTGYYYCCCYYY XXXCCCDTGYYY