Help for this page

Select Code to Download

Select or download this
```
$count = ($string =~ tr/\n/\n/);
```

Select or download this

# Greedy
$string = q(xxxx); 
...
$string = q(xxxx); 
$count = ($string =~ s/x*?/#/g); 
print qq($string $count), $/;