my $fn = shift;
exit 1 if not defined $fn;

my $input = do {
    open my $fh, "<", $fn or die "open failed";
    local $/;
    <$fh>
};

my $count = () = $input =~ m/mul\(\d{1,3},\d{1,3}\)/g;

print "Found $count matches.\n";

##</code><code>##

import re
import sys

if len(sys.argv) < 2: exit(1)

mul_re = re.compile(r"mul\(\d{1,3},\d{1,3}\)")

with open (sys.argv[1], "r") as f:
    input = f.read()

count = len(mul_re.findall(input))

print(f"Found {count} matches.")