if( $string =~ /^$RE{num}{real}$/ ) {
  print "Match!\n";
}
else {
  print "Reject!\n";
}