in reply to Re^2: pattern matchingin thread pattern matching
- # Substitute as required. - $indata =~ s/XYZATGC/XYZ/g; + # This is not terribly efficient. + my @outdata = split q|ATGC|, $indata; + $indata = $outdata[0]; [download]