$ perl -Dr /tmp/qq 2>&1 | grep Compiling
    Compiling REx `^(.{2}).{2}(.*)$'
    $
[download]

Here's a benchmark:

#!/usr/bin/perl
                     
use strict;
use warnings;
                     
use Benchmark 'cmpthese';
    
our @data = <DATA>;
chomp @data;
                    
our $from = 2;
our $len  = 2;

our (@a, @b, @c);

cmpthese -10 => {
    substr   => 'for (@a = @data) {
                     substr $_, $from, $len, "" if length ($_) >= $fro
+m + $len
                 }',
    regex    => 'for (@b = @data) {
                     $_ = $1 . $2 if /^(.{$from}).{$len}(.*)$/;
                 }',
    regex_qr => 'my $qr = qr /^(.{$from}).{$len}(.*)$/;
                 for (@c = @data) {
                     $_ = $1 . $2 if /$qr/;
                 }',
};  

die "Unequal" unless "@a" eq "@b" && "@b" eq "@c";
                    
__DATA__
12345678
yellow
a
xx
yyy
a somewhat longer line to compensate for the smaller lines.
bla bla bla bla



            Rate regex_qr    regex   substr
regex_qr 38207/s       --      -3%     -62%
regex    39497/s       3%       --     -60%
substr   99555/s     161%     152%       --
[download]

Abigail

Interesting!

Like jweed, I knew that if you use /$variable/ in a cycle, it gets recompiled at each iteration, even if $variable doesn't change.

Since I am sure I read that in a far away day in the past ;-) I suppose that it worked that way before, so it must have changed at some point. Could anybody tell at which version of Perl that behaviour changed?

Thanks

Ciao!
--bronto

---

The very nature of Perl to be like natural language--inconsistant and full of dwim and special cases--makes it impossible to know it all without simply memorizing the documentation (which is not complete or totally correct anyway).
--John M. Dlugosz