Help for this page

Select Code to Download

Select or download this

my $count = grep /match/, <DATA>;
print $count;
...
not34234
match
4232434

Select or download this
```
print scalar(grep /match/, <DATA>);
```