use warnings;
my $range = "1..10";
my @wanted = range($range);
print "@wanted\n";

sub range {
    my @t = split /\.\./, $_[0];
    return ($t[0] .. $t[1]);
}
[download]

sub range {
    my @t = split /\.\./, $_[0];
    return ($t[0], $t[1]);
}
[download]

my @t = $_[0] =~ /^\s*(-?\d+)\s*\.\s*\.(\s*\.)?\s*(-?\d+)\s*$/;
[download]

Be as strict as possible in what you accept. That way, errors are caught as early as possible.

---

My criteria for good software:

1. Does it work?
2. Can someone else come in, make a change, and be reasonably certain no bugs were introduced?

Use eval, if you must.

my $range = '1..10';
for my $x ( eval $range ) {
    print "$x\n";
}
[download]

Beware, however, that input validation is very important here. The string you pass into eval can be any Perl code, and it will do whatever that code does.

Also something like this work to:

my $a = 1;
my $b = 10;
my @range = $a .. $b;
for my $x (@range)
{
  print "$x\n";
}
[download]

So I could parse the start and end of range into variables. Cool. Thanks.