#!/bin/perl -w

while (<>) {
        chomp;
        $line += split /[ \t]*/;
}

print $line;