first, you can use '?' instead of '{0,1}'. secondly, that works for me (I'v check this):

while (<>) {
  print if /^(-?\d+)\s+(-?\d+)/;
  print $_ for ($1..$2);
}
[download]

, Hotshot