use strict;
use warnings;

open my $in, '<', 'out1.txt' or die $!;
open my $out, '>', 'out.txt' or die $!;

while(my $line=<$in>)
{
  if($line=~/\A(?:[\d\.]+\s+){5}([\d\.]+)/)
  {
    print "$1\n";
  }
  else
  {
    print "keine Werte\n";
  }          
}
close($in);
close($out);