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

use strict;
use warnings;
use v5.32;

@ARGV = "input" unless @ARGV;

chomp( my $input = do { local $/; <> } );

use List::Util qw( sum );

say $input;

my @matches = $input =~ m/(-?\d+)/g;

say "part 1: ", sum @matches;
say "part 2: ";