AoC 2024, day 3, part 1 (Perl)

#!/usr/bin/perl

use strict;
use warnings;

use feature         qw(say);

my $part1 = 0;
foreach my $line (<>) {
    $part1 += $1 * $2  while ($line =~ m#mul\((\d{1,3}),(\d{1,3})\)#g);
}

say "Part 1: ", $part1;