#!/usr/bin/perl

use Benchmark;

my $line = "-- 23 ----------------------------------- 868689";

timethese(1000000, {
   substr => sub {
      my $zahlen = substr($line, 4,index($line, " ", 5) - 4);
   },
   regex1 => sub {
      my ($zahl) = $line =~ /-\s(\d+?)/; # Mein Ursprungs-RegEx
   },
   regex2 => sub {
      my ($zahl) = $line =~ /^-- (\d+)/; # Der letzte hier im Thread vorgeschlagene RegEx
   }
});