use strict;
use warnings;
use Data::Dumper;

my @array;

while (my $line = <DATA>) {
   @array = split(/ /, $line);
   print Data::Dumper->Dump([\@array], [' split / /']);
   @array = split(/\s+/, $line);
   print Data::Dumper->Dump([\@array], [' split /\s+/']);
}

__END__
08.06.2007 09.10.55,712    de.xxx.yyy.zzz