Hi!
$variable =~ s/(wort1)?wort2//;
versuch mal
$variable =~ s/(?:wort1)?wort2//;
damit wird auch nichts ersetzt
psh% $text = "wort1wort2";
psh% printf("%s\n", $text)
wort1wort2
psh% $text =~ s/(?:wort1)?wort2//;
psh% printf("%s\n", $text)
wort1wort2
psh%
Danke!