use Regexp::Common;

if ( $RE{num}{real}->matches($v3) ) {
  print "its a good one\n";
} else {
  print "Not Good!!";
}
[download]

Regexp::Common is one of the best libraries on CPAN!