Select Code to Download

use strict;
use warnings;
...
    'm_empty'     => sub { 'Y' =~ //;       },
    'm_empty_o'   => sub { 'Y' =~ //o;      },
    });

c:\@Work\Perl\monks\belg4mit>perl cmp_qr_compilation_1.pl
perl version 5.008009
...
m_empty      4237856/s        322%        25%          --       -16%  
+      -68%
m_empty_o    5068698/s        405%        50%         20%         --  
+      -61%
qr_interp_o 13135439/s       1208%       289%        210%       159%  
+        --