Substitute tom with Mary : substitution « Regular Expression « Perl

Substitute tom with Mary

    

while(<DATA>){
   print if s/tom/Mary/i;    # Substitute tom with Mary
}
__DATA__
    tom
    Mary
    Jack
    James
    Jon
    Kate

1.	Options for the substitution operator.
2.	Replace pattern
3.	Replace pattern with ()
4.	Substitute I with N and print
5.	Substitute N with J
6.	Substitute every T with M
7.	Substitute first T with an M
8.	Substitute first occurrence of "blue" with "red"
9.	Substitution Example
10.	Substitution Modifiers
11.	Using substitutions to clean up input data.
12.	Capitalize all sentences
13.	Using Patterns with Substitutions
14.	Changing substitution delimiters
15.	Increase salary with pattern match
16.	Evaluate replacement
17.	Alternation: /John\|Karen\|Steve/ will match a line containing John or Karen or Steve.
18.	Options for the S Operator
19.	Ignore case, global substitution