$ perl bm_string_quoting.pl 2> /dev/null
           Rate single double
single 459485/s     --    -0%
double 460340/s     0%     --