#!/usr/local/bin/perl
# day 2015-05

use strict;
use warnings;
use v5.32;
use lib '.';
use Day05 qw( is_nice_1 is_nice_2 );

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

my @strings = split /\n/, $input;
my ( $nice_1, $nice_2 ) = ( 0, 0 );

foreach ( @strings ) {
    $nice_1++ if ( is_nice_1( $_ ) );
    $nice_2++ if ( is_nice_2( $_ ) );
}

say "part 1: ", $nice_1;
say "part 2: ", $nice_2;