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