Regular Expression Perl

  1. Home
  2. Perl
  3. Regular Expression
  4. Substitute tom with Mary
while(){
   print if s/tom/Mary/i;    # Substitute tom with Mary
}
__DATA__
    tom
    Mary
    Jack
    James
    Jon
    Kate