Select Code to Download

%character_tests{ "var1" , "^0-9",
                  "var2" , "^A-Za-z0-9\." );

%character_tests = ( 
    var1 => qr/^0-9/,
    var2 => qr/^A-Za-z0-9\./ 
);

$somestring =~ $character_tests{var1};

 
$somestring =~ /$character_tests{var1}Foo/;