foreach (@words) { $line =~ s/(%\d)$_(%\d)//g; print "$line\n"; }
In reply to Re^2: broken regex by elwood in thread broken regex by elwood