$ perl bm_string_quoting.pl 2> /dev/null
           Rate double single
double 449265/s     --    -7%
single 481758/s     7%     --