Hi,

Many answers already, but, if you're looking to split up the numbers in variables:

#!/usr/bin/perl

use strict;
use warnings;

while (<DATA>) {
    chomp;
    my ($a, $b, $c, $d, $e) = split/ /;
    print "$a $b $c $d $e\n";
}

__DATA__
1125356700 0 0 0 0
1125356400 15 0 25 0
1125356100 25 0 25 0
1125355800 25 0 25 0
1125355500 25 0 25 0
1125397800 0 0 0 0
1125397500 0 0 0 0
1125397200 0 0 0 0
1125396900 0 0 0 0
1125396600 0 0 0 0
1125396300 0 0 0 0
1125396000 39006 0 63597 0
1125395700 63597 0 63597 0
1125395400 63597 0 63597 0
1125395100 63597 0 63597 0
1125394800 63597 0 63597 0
1125394500 63597 0 63597 0
1125394200 63597 0 63597 0
[download]