or download this
c:\@Work\Perl\monks>perl -wMstrict -le
"use Regexp::Common qw(RE_num_real);
...
----------------------------------------------------------------------
) end of grouping
----------------------------------------------------------------------