#!/usr/local/bin/perl
use Regexp::Common;
print $RE{num}{real}