Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...
  $sqv++;
  my $str = 'see '.$dqv.' run                                         
+                                            and '.$dqv;
}

            Rate double single
double  943396/s     --   -37%
single 1492537/s    58%     --