open my $fh, "<", $infile or die "error opening '$infile':$?";

##</code><code>##

    if ( m/^(\d{2}:\d{2}:\d{2},\d+)\s\-\-\>\s(\d{2}:\d{2}:\d{2},\d+)/g ) {

##</code><code>##

    my @elems = split(':', $time);
    my $seconds = pop @elems;
    my $minutes = pop @elems;
    my $hours   = pop @elems;

##</code><code>##

    my ( $hours, $minutes, $seconds ) = split /:/, $time;

##</code><code>##

    # force to numerical
    $hours += 0; $minutes += 0; $seconds += 0;

##</code><code>##

    my $seconds = sprintf( "%02.3f", ( ( $sectime - ( $hours * 3600 ) ) - ( $minutes * 60 )) );