millisecond diff

ms-diff.pl

# Millisecond Difference 
# keyword: Millisecond, ms, diff, time, timediff
# Online Perl: https://rextester.com/l/perl_online_compiler, https://www.onlinegdb.com/online_perl_compiler

my $t1 = "00:01:25.652";
my $t2 = "00:01:22.932";
print to_milli($t2) - to_milli($t1);

sub to_milli {
    my @components = split /[:\.]/, shift;
    return (($components[0] * 60 + $components[1]) * 60 + $components[+2]) * 1000 + $components[3];
}