#!/usr/bin/perl
# das ganze muss NATUERLICH noch entsprechend angepasst werden
use warnings;
use strict;
use diagnostics;

my $content = "
crap crap crap
0.20000000E+04 -0.43339133E+02 -0.83744754E+02 0.19753227E+04  0.63633301E+01 -0.13903707E+00 -0.27834355E+00  0.62861212E+01  0.93800002E+00 1 1 1 1 6 20
blalblah
";
my $regex = '(.*\d\.\d+\w\+0\d\s\d*\s\d\s\d\s\d\s\d\s\d+)';


my ($tmp1) = $content =~ /$regex/m;
my @foo = split(/\s/, $tmp1);



foreach (@foo) {
    print;
    print "\n";
}