#!/usr/bin/perl

use strict;
use warnings;

my $str = 'bla_blub_bla';

$str =~ /([^_]+)_/sg;
print '1. Mal: Position='.pos($str).", Gefunden: $1\n";
$str =~ /([^_]+)_/sg;
print '2. Mal: Position='.pos($str).", Gefunden: $1\n";