9ad4037
0936672
1
2 3 4 5
6
7 8
#!/usr/bin/env perl use strict; use warnings; use 5.014; use List::Util 'sum'; say sum map { s/^([-+\.\d]+).*/$1/r } <>;