RosettaCodeData/Task/Range-expansion/Perl/range-expansion-2.pl

sub rangex {
    (my $range = shift) =~ s/(?<=\d)-/../g;
    eval $range;
}