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