Perhaps it's easier to use Regexp::Common. It takes care of various numeric formats for you as well (if that's what you also want).

use Regexp::Common;
$str =~ /$RE{num}{real}/;
[download]