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