if (/^\d{4,}-[\d\-T\:\.]+(?=\s+)/p) {
		my ($dts,$rest) = (${^MATCH}, ${^POSTMATCH});
		my $dt = $strp_one->parse_datetime($dts);
		# parse "$rest" and break it into more fields here
		while ($rest =~ /(\w+\s+)(\w+\s+)(.+?)/smg) {       
		              print "New Error Found...\n";
                      print "0 $0\n";
                      print "1 $1\n";
                      print "2 $2\n";
                      print "3 $3\n";
                      print "4 $4\n";
                      print "5 $5\n";
                      print "6 $6\n";}
		$csv->print(select, [
			$dt->strftime('%Y-%m-%d,%H:%M:%S'),#'%Y-%m-%d-%H-%M-%S-%6N-%Z'
			$rest ] );
	}