use Benchmark;
$a="Hello";
timethese(10_000_000, { eq => sub { return ($a eq "" || $a eq "?") },
                         regexp => sub { $a=~/^\??$/ } } );