Regular Expression Perl

  1. Home
  2. Perl
  3. Regular Expression
  4. 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  =~ /Jordan/;