- # Substitute as required.
- $indata     =~ s/XYZATGC/XYZ/g;
+ # This is not terribly efficient.
+ my @outdata     = split q|ATGC|, $indata;
+ $indata         = $outdata[0];