'oregex' => sub {
                    $test_char = chr( int( rand 256 ) );
                    if ($test_char =~ /^[A..Z]$/o) {} else {}
                   },