AoC 2025, day 2, Regex (Perl)

#!/usr/bin/perl

use strict;
use warnings;

use feature         qw(say);

my @input = map { chomp; map { [split /-/] } split /,/ } <>;

my $part1 = 0;
my $part2 = 0;

foreach my $range (@input) {
    my ($first, $last) = @$range;

    foreach my $num ($first .. $last) {
        $part1 += $num  if ($num =~ m#^(.*)\1$#);
        $part2 += $num  if ($num =~ m#^(.*)\1+$#);
    }
}

say "Part 1: $part1";
say "Part 2: $part2";