Day 6: rewrite after misreading the task

diff --git a/2022/12a.pl b/2022/12a.pl
new file mode 100755 (executable)
index 0000000..52d31de
--- /dev/null
+++ b/2022/12a.pl
@@ -0,0 +1,11 @@
+#!/usr/bin/perl -w
+
+use v5.36;
+use strict;
+use experimental 'multidimensional';
+
+chomp($_ = <>);
+my $i;
+s/^.//, $i++ while substr($_, 0, 14) =~ /(.).*\1/;
+say $i + 14;
+