Help for this page

Select Code to Download

Select or download this

use Modern::Perl;

...

    ( $matches / 5 ) * $hash{$key};
}

Select or download this
```
4.8
```