Select Code to Download

use Modern::Perl;
use Number::Rangify qw/rangify/;

...
ABC--DE
A-B--C----DEF------H