Select Code to Download

my $diffs = diff( .... );
for my $diff ( split ' ', $diffs ) {
    my( $start, $len ) = split ':', $diff;
    ## use start / len
}

my $ref = diff( ... );

...
    my( $start, $len ) = @{ $pair };
    ## use start / len
}