Regular Expression Perl

  1. Home
  2. Perl
  3. Regular Expression
  4. Count the match times
$text = "Name: Anne Name: A Name: C Name: D";
$match = 0;
while ($text =~ /Name: *(\w+)/g) {
    ++$match;
    print "Match number $match is $1.\n";
}