#!/usr/bin/env perl -l

use strict;
use warnings;

while (<DATA>) {
    chomp;
    print "Line $.: $_";
    print for split /\s{2,}/;
}

__DATA__
joe     0.00E 000   9.0720E-001     d23     9.0208E-001
joe2    0.00E-000   9.0720E 001     d23     9.0208E 001
joe3    0.00E 000   9.0720E-001     d23     9.0208E 001
joe4    0.00E-000   9.0720E 001     d23     9.0208E-001

##</code><code>##

Line 1: joe     0.00E 000   9.0720E-001     d23     9.0208E-001
joe
0.00E 000
9.0720E-001
d23
9.0208E-001
Line 2: joe2    0.00E-000   9.0720E 001     d23     9.0208E 001
joe2
0.00E-000
9.0720E 001
d23
9.0208E 001
Line 3: joe3    0.00E 000   9.0720E-001     d23     9.0208E 001
joe3
0.00E 000
9.0720E-001
d23
9.0208E 001
Line 4: joe4    0.00E-000   9.0720E 001     d23     9.0208E-001
joe4
0.00E-000
9.0720E 001
d23
9.0208E-001