Regular Expression Perl

  1. Home
  2. Perl
  3. Regular Expression
  4. Substitute first T with an M
#!/usr/bin/perl
$name="Tom";
print "Hello Tom\n"  if $name =~ /Tom/; 
print "$name\n" if  $name !~ /Tom/;     
$name =~ s/T/M/;                        # Substitute first T with an M
print "$name.\n";