Select Code to Download

$seq =~ s/
    (\d+):(\d+):(\d+)
...
    (\1):(\2):(?{1+($3|$6)})

    /$1:$2:$3-$6/xg;