Help for this page

Select Code to Download

Select or download this
```
$count = scalar ($str =~ m/pattern/g);
```

Select or download this

$count = scalar map {1} ($str =~ m/pattern/g);
$count = scalar @{[$str =~ m/pattern/g]};
$count = ($str =~ s/pattern/$1/g);