- # Substitute as required. - $indata =~ s/XYZATGC/XYZ/g; + # This is not terribly efficient. + my @outdata = split q|ATGC|, $indata; + $indata = $outdata[0];
In reply to Re^3: pattern matching
by Xiong
in thread pattern matching
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |