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

use strict;
use warnings;
use v5.32;
use lib '.';
use Day08 qw< part1 part2 >;

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

my @strings = split /\n/, $input;
my ( $part1, $part2 );

foreach ( @strings ) {
    $part1 += part1( $_ );
    $part2 += part2( $_ );
}

say "part 1: ", $part1;
say "part 2: ", $part2;