#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;

while(<DATA>) {
  chomp;
  s/-/ -/g;
  print Dumper [split(/\s+/, $_)];
}

__DATA__
123.45 345.3 234.67
34.56  234.1 123.87
897.34 567.32-100.90