my @text_dat1 = split(/\s+/, $DatStr1);