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

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

my  ($hour,$min,$sec,$ms) = $time =~ /(\d+)/g;

print "hour=$hour\n",
      "minutes=$min\n",
      "seconds=$sec\n",
      "milliseconds=$ms\n";
__END__

hour=01
minutes=00
seconds=01
milliseconds=004