various script cleanups

1 files changed, 6 insertions, 2 deletions

diff --git a/bin/sum b/bin/sum
index df7cd81..cf21bfd 100755
--- a/bin/sum
+++ b/bin/sum
@@ -1,4 +1,8 @@
 #!/usr/bin/env perl
-use 5.010;
+use strict;
+use warnings;
+use 5.014;
+
 use List::Util 'sum';
-say sum map { s/^((?:\d|[-+\.])+).*/$1/; $_ } <>;
+
+say sum map { s/^([-+\.\d]+).*/$1/r } <>;