c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"my $tim = '01:00:01.004';
 ;;
 $tim =~ s/:/./g;
 print qq{new time is '$tim'};
 my @outputlist = split '\.', $tim;
 dd \@outputlist;
"
new time is '01.00.01.004'
["01", "00", "01", "004"]