RE: [Perl-unix-users] Substitution help needed

Title: RE: [Perl-unix-users] Substitution help needed Craig, try this. #!/usr/bin/perl -w use strict; my $s = "  ) in psfs1 extent size 40 next size 10 lock mode row;"; print "$s\n"; $s =~ s/\)/\)\;/; print "$s\n

RE: [Perl-unix-users] Substitution help needed

You don't even need the s/// since you need to test for it anyway. You could do it something like this: @lines =('before match', ') in psfs1 extent size 40 next size 10 lock mode row;', 'after match'); foreach (@lines) { if ($_ eq ') in ps