From a19e1fe614f7a3caef487fda4c130cda89085891 Mon Sep 17 00:00:00 2001
From: Abigail <abigail@abigail.be>
Date: Sat, 3 Oct 2020 18:00:30 +0200
Subject: Save a few bytes.

---
 challenge-080/abigail/perl/ch-2.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/challenge-080/abigail/perl/ch-2.pl b/challenge-080/abigail/perl/ch-2.pl
index 20f131e101..325ff17c73 100644
--- a/challenge-080/abigail/perl/ch-2.pl
+++ b/challenge-080/abigail/perl/ch-2.pl
@@ -52,7 +52,7 @@ while (<>) {
     # in an array @N. Initialize the number of candies to the number
     # of candidates.
     #
-    my $candies = my @N = split ' ';
+    my $candies = my @N = split;
 
     #
     # Add a candy of each pair of consecutive candidates with different
-- 
cgit