use strict;
use warnings;

sub range_to_list {
  my ($max, $str) = @_;
  $str =~ s/^-/0-/;         # string starts with -
  $str =~ s/-$/-$max/;      # string ends with -
  $str =~ s/^(\d+)$/$1-$1/; # just a number
  return ($str =~ /^(\d+)-(\d+)$/)&&($1<=$max)&&($2<=$max) ? ($1..$2) : ();
}

my @tests = qw( 4 4-6 5- -2 - a 11- 2-7w -11 );

for my $test (@tests) {
  my @list = range_to_list 10, $test;
  print "$test:\t@list\n";
}