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

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

my @output_list = $time =~ /(\d+)/g;

print "@output_list\n";  # 01 00 01 004

##</code><code>##

#!/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      


##</code><code>##

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

my ($no_ms) = $time =~ /([\d:]+)/; #any digit or colon

print "no milliseconds = $no_ms\n"; no milliseconds = 01:00:01

##</code><code>##

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