$varName = qr(regex goes here);
if ( $str =~ /$UnderscoredNumber/ ) ...       # poor
if ( $str =~ /$SimpleRatio/ ) ...             # good
if ( $str =~ /$Ratio::simpleFraction/ ) ...   # better