Help for this page

Select Code to Download

Select or download this

my $count = 0;
$count += () = /mul\(\d{1,3},\d{1,3}\)/g while <$fh>;