Substitute every T with M : substitution « Regular Expression « Perl






  1. Perl
  2. Regular Expression
  3. substitution

Substitute every T with M

    

$name="Tom";
print "$name\n" if $name =~ s/T/M/g;    # Substitute every T with M
print "What is Tom's last name? ";
print "You got it!\n" if <STDIN> =~ /Jordan/;








Related examples in the same category

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 first T with an M
7.Substitute first occurrence of "blue" with "red"
8.Substitute tom with Mary
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