while (<>) { print if /^(-?\d+)\s+(-?\d+)/; print $_ for ($1..$2); } [download]
In reply to Re: regex negative numbers by hotshot in thread regex negative numbers by Anonymous Monk