perl -MRegexp::Common -wle 'print $RE{num}{real}'