use strict;
use warnings;
use feature qw/ say /;
use Parse::Range qw/ parse_range /;


say parse_range( $string );