#!/usr/bin/perl

use warnings;
use strict;
use Benchmark;

my $string = 'Soweit, Sogut ich blicke zwar durch Strats geschreibsel noch nicht ganz durch, aber es hat schon einen Haken: 

Module. Das ganze sollte ohne Module von Statten gehen.
Ich dachte das würde durch einen einfachen Ausdruck ala "s~/findedasundauchverschachtelt/erstzedann/g" funzen 
Bei der Quotingfunktion könnt ich mich noch auf nen Kompromiss einlassen und einfach 2 mal suchen/ersezten lassen (einmal

# viel text, viel text, viel Text

öffnenden Tag, einmal schliessenden). Dürfte allerdings, bei langen Postings, doch etwas lahmarschig sein.';

Benchmark::cmpthese(5000000, {
	'mit *' 	=> sub { $string =~ m/Ich.*funzen/g; },
        'ohne *' 	=> sub { $string =~ m/Ich/g; $string =~ m/funzen/g; },
});

C:\>ben.pl
           Rate  mit * ohne *
mit *  639959/s     --   -26%
ohne * 865052/s    35%     --