s/^.+;.+-(.+)-.+;.+$/$1/;
# s/// ersetze alles, was im ersten Teil gefunden wird, durch den zweiten
# ^.+; erkennt vom Anfang des Strings bis zum ersten Semikolon (^ = Anfang)
# .+- erkennt bis zum ersten Bindestrich
# (.+)- erkennt bis zum nächsten Bindestrich und speichert es in $1 ab
# .+; erkennt bis zum zweiten Semikolon
# .+$ erkennt den Rest ($ = Ende)

# zeilenweises einlesen, zeile steckt in $line
# splitte am '-' und nehme nur das 2. Element
$value = (split(/-/, $line))[1]

#!/usr/bin/perl

use strict;
use warnings;
use Benchmark;

use vars qw/$count @data $line/;

$count = 1000000;


@data = (
    '10.177.178.83;gr-emattig-IP1;Edgar Mattig',
    '10.177.174.71;gr-akaraca-IP1;Adnan Karaca',
    '10.177.165.137 gr-skahlert-IP1 Stefan Kahlert',
);

timethese( $count, {
        'regex' => \&ME_regex,
        'split' => \&ME_split,
});

sub ME_regex {
    for $line ( @data ) {
        my ($val) = $line =~ m/-(.*?)-/;
    }
}

sub ME_split {
    for $line ( @data ) {
        my ($val) = (split(/-/, $line))[1];
    }
}