#!/usr/bin/perl

use strict;
use warnings;

while(<DATA>) {
  my @a = split;               # split record into fields
  print "Value = $_\n" for @a; # print out all fields
  print "\n";                  # blank line between "records"
}

__DATA__
1234567890123456 2004-07-10  14:47:39 51.12345 -1.12345

##</code><code>##

Value = 1234567890123456
Value = 2004-07-10
Value = 14:47:39
Value = 51.12345
Value = -1.12345