$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