in reply to Problem splitting Time::Local result

The other way to get what you want is:
my @text_dat1 = split(/\s+/, $DatStr1);

The regular expression /\s+/ gets satisfied by the longest possible sequence of whitespace possible, whereas / / is only satisfied by a single space.