my $zeile =
#1234567812345678123456781234567812345678
'Q4          1231  -52.89   1e-01';
my (@spalten) = map { s/^( +)//; $_ } $zeile =~ /.{8}/g;

print "Alle Daten:\n$_\n" for (@spalten);
print "\nSpalte 2: $spalten[1]\n"