b0VIM 9.0¥{Ic†JÒTcompilerfreebsd2~compiler/programs/aoc2015/day02/day02.plutf-8 3210#"! UtpadK Ó êÜÛÏÁ¶µ—–lkML)äÕ¤sBþ ü û ã Ó Ä ¡ z X > - ! say "part 2:say "part 2: ";ssay "part 2: ";say "part say "part 2: ";say "part 1: ", $tsay "part 2: ";say "part 1: ", $total;say "part 2: ";say "part 1: ", $tosay "part 2: ";say "part 2: ";say "part 1: ", $total;} $total += $area; my $area = 2* (sum @faces) + (min @faces); $faces[2] = $dimensions[0] * $dimensions[2]; $faces[1] = $dimensions[1] * $dimensions[2]; $faces[0] = $dimensions[0] * $dimensions[1]; my @faces; my @dimensions = split /x/, $_;foreach (@presents) {my $total;my @presents = split /\n/, $input;use List::Util qw( min sum );chomp( my $input = do { local $/; <> } );@ARGV = "input" unless @ARGV;use v5.32;use warnings;use strict;# day 2015-02#!/usr/local/bin/perl