#!/usr/bin/env perl
use strict;
use warnings;
use 5.014;

use List::Util 'sum';

say sum map { s/^([-+\.\d]+).*/$1/r } <>;