use warnings;
use strict;
use Test::More;
use Regexp::Common qw/number/;

like  "-2", qr/^$RE{num}{real}$/;
like  "-5", qr/^$RE{num}{real}$/;
like " -5", qr/^$RE{num}{real}$/;

done_testing;

__END__

ok 1
ok 2
not ok 3
#   Failed test at ...
1..3
# Looks like you failed 1 test of 3.

##</code><code>##

    next if /^($RE{num}{real})/ && $1 > $limit;
    next if /^(\s\s-\d)/ && $1 > $limit;

##</code><code>##

    next if /^\s*($RE{num}{real})/ && $1 > $limit;