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.