Day 2: pretty straightforward

diff --git a/2023/03.pl b/2023/03.pl
new file mode 100755 (executable)
index 0000000..1d4676e
--- /dev/null
+++ b/2023/03.pl
@@ -0,0 +1,15 @@
+#!/usr/bin/perl -w
+
+use v5.38;
+use List::Util qw(max);
+
+my $sum;
+while (<>) {
+       my ($id) = /(\d+): /;
+       $sum += $id if
+               max(/ (\d+) red/g) <= 12
+               && max(/ (\d+) green/g) <= 13
+               && max(/ (\d+) blue/g) <= 14;
+}
+
+say $sum;

diff --git a/2023/04.pl b/2023/04.pl
new file mode 100755 (executable)
index 0000000..a6cf0d5
--- /dev/null
+++ b/2023/04.pl
@@ -0,0 +1,13 @@
+#!/usr/bin/perl -w
+
+use v5.38;
+use List::Util qw(max);
+
+my $sum;
+while (<>) {
+       $sum += max(/ (\d+) red/g)
+               * max(/ (\d+) green/g)
+               * max(/ (\d+) blue/g);
+}
+
+say $sum;