Select Code to Download

use strict;
use warnings;
...
} split /;/, $string;

say "@output";

ph1 ph2 ph3 25 t3 t47 t48 t49 t50 d4 d5 d6

use strict;
use warnings;
...


say parse_range( $string );

non-numeric range: 'ph1-3;25;t3;t47-t50;d4-6' at C:/strawberry/perl/si
+te/lib/Parse/Range.pm line 7.
ph1 ph2 ph3 25 t3 t47 t48 t49 t50 d4 d5 d6