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