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