#!/usr/bin/perl
use strict;
use warnings;
use Benchmark;

# test.html beinhaltet diese Beitragsseite lokal gespeichert
open FH, "test.html" or die "test.html: $!";
my $string = do { local $/; <FH> };
close FH;

timethese (1_000_000, {
        func1 => \&func1,
        func2 => \&func2,
});

sub func1 {
    my $start = index($string, "<title>");
    my $ende = index($string, "</title>");

    my $title = substr($string, $start+7, $ende - $start - 7);
}

sub func2 {
    my $title = Å© if ( $string =~ m{<title>(.*)</title>}i ) ; 
}