my $str = '02/17/2003 11:44:19.123';
$str =~ s/\.\d+$//;
print "$str\n";