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