#my humble code snippet is:

# for 4th column check number of decimals
   my @dec = split("\\.", $cols[3]);
   my $dec_length = length($dec[1]);
   if ($dec_length != 2) {
       print "BAD decimal length - $x1\n";
   }

##</code><code>##

A3 11/20/2013 8:19:56 26.62 26.69
A4 11/20/2013 8:19:57 26.62 26.69
A5 11/20/2013 8:19:58 26.62 26.69
A7 11/20/2013 8:20:1 26.62 26.69
A9 11/20/2013 8:20:4 26.62 26.69
A10 11/20/2013 8:20:5 26.62 26.69
A12 11/20/2013 8:20:8 26.62 26.69
A13 11/20/2013 8:20:9 26.69 26.69
A14 11/20/2013 8:20:10 26.62 26.69
A16 11/20/2013 8:20:13 26.62 26.69
A18 11/20/2013 8:20:16 26.62 26.69
A23 11/20/2013 8:20:22 26.62 26.69


But, if you add "interference" that "looses" a character for the dates & time fields, you would get:

A3 11/20/2013 8:19:56 26.62 26.69
A4 1/20/2013 8:19:57 26.62 26.69
A5 11/0/2013 8:19:58 26.62 26.69
A7 11/20/2013 8:20:1 26.62 26.69
A9 11/2/2013 8:20:4 26.62 26.69
A10 11/20/2013 8:20:5 26.62 26.69
A12 11/20/2013 8:20:8 26.62 26.69
A13 11/20/2013 8:0:9 26.69 26.69
A14 11/20/2013 8:20:10 26.62 26.69
A16 1/20/2013 8:2:13 26.62 26.69
A18 11/20/2013 8:0:16 26.62 26.69
A23 11/20/2013 8:20:22 26.62 26.69

Based on this example, what would you suggest I could do to "flag" the bad dates & times?