#!/usr/bin/perl

use strict;
use warnings;
use Benchmark qw(:all);

my $string = "Dies ist ein Test mit einer längeren Zeile";

timethese(
  5000000,
  {
     capture    => sub { $string =~ /(es).*?T(es).*(ei)/},
     noncapture => sub { $string =~ /(?:es).*?T(?:es).*(?:ei)/ },
  }
);

C:\>benchmark.pl
Benchmark: timing 5000000 iterations of capture, noncapture...
   capture:  8 wallclock secs ( 8.53 usr +  0.00 sys =  8.53 CPU) @ 586097.76/s (n=5000000)
noncapture:  5 wallclock secs ( 4.91 usr +  0.00 sys =  4.91 CPU) @ 1019160.21/s (n=5000000)