$wort = "Dorfstr";
$wort =~s /str\b//g;

// Ergebnis : Dorf

$wort = "Elsa-Brändström-Weg"
$wort =~s /str\b//g;

// hier sollte nichts verändert werden. Leider wird hier aber auch das str herausgeschnitten

use strict;
use warnings;
my %umlaute = (
                'ö' => 'oe',
                'ü' => 'ue',
                'ä' => 'ae'
              );
my $var1 = "Dorfstr";

my $var2 = "Brandstroemweg";

for ($var1,$var2) {
s/(ä|ü|ö)/$umlaute{$1}/g;
s/str(?=\b)//g;
print;
}

DorfBrandstroemweg