my $time = "01:00:01.004";
$time =~ s/\.\d+$//; #explictly delete the ending milli_seconds
print "time stripped ms = $time\n";
#time stripped ms = 01:00:01