Select Code to Download

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

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

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

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

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

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