#!/usr/local/bin/perl
# day 2022-06

use strict;
use warnings;
use v5.32;

@ARGV = "input" unless @ARGV;
chomp( my $input = do { local $/; <> } );

my $part1 = 4;
my $i = 0;

while ( substr( $input, $i, $part1) =~ m/(.).*\1/ ) {
    $i++;
}

say "part 1: ", $i + $part1;

my $part2 = 14;
$i = 0;

while ( substr( $input, $i, $part2) =~ m/(.).*\1/ ) {
    $i++;
}

say "part 2: ", $i + $part2;