my( $left, $right ) = extractRange( '68485121: 20-42' );
sub extractRange {
    my( $line ) = @_;
    ...
}