MeowChow                                   
               s aamecha.s a..a\u$&owag.print

Update: Wups. My mistake. Nevermind.

Update 2: However, s/// does what I thought m// does, so you can do something like:

my $count = ($string =~ s/(pattern)/$1/g;)

Good luck.

Zenon Zabinski | zdog | zdog7@hotmail.com

my $text = "my dog is green";
my $count = ( $text =~ /g/g );  # $count is 2
[download]

Actually, no, that puts the match into a scalar context which means that it just returns a "true" or "false" value. However: my $count= ()= $text =~ /g/g; works since an array assignment returns the number of items in the right-hand value when used in a scalar context.

        - tye (but my friends call me "Tye")

But getting the *number of matches* via that method will depend on the pattern itself --- in list context, the list of matches are returned, but if there are capturing parens the list of captured items are returned (which can be more than 1 per match):

my $text = "my dog is green";
my $count =()= $text =~ /(g)(.)/g;
print $count;
[download]

That prints 4, although the pattern only matched twice. To get the number of matches you'll really need to count them:

my $text = "my dog is green";
my $count;
$count++ while $text =~ /(g)(.)/g;
print $count;
[download]

Or perhaps use the s/// operator (which returns the number of substitutions) and replace everything matched by itself if you don't want to change the string:

my $text = "my dog is green";
my $count = $text =~ s/(g)(.)/$1$2/g;
print $count;
[download]

Not quite. Assigning to a scalar puts the regex into scalar context, which causes it to return a 1 if there's any matches, or 0 otherwise.

You need:

my $count = () = $text =~ /g/g;
[download]

   MeowChow                                   
               s aamecha.s a..a\u$&owag.print