Regular Expression Perl

  1. Home
  2. Perl
  3. Regular Expression
  4. The dot metacharacter and the zero or more quantifier
while(){
    print if s/[A-Z].*y/Tom/;
}
__DATA__
    Mary 101
    Tom 201