#!/volume/perl/bin/perl
use warnings;
use strict;
use DateTime::Duration;

my $tim = "01:00:01.004";

$tim =~ s/:/./g;
print "new time is $tim";
my @outputlist = split /./, $tim;
print "$outputlist[0]\n";