Perl Funktion schreiben aber wie??

[Markus Möller]

Hallo!
Mein Vorschlag:
---

Erst mal beide Strings fuellen

$male = $female = 'Sehr [SIE]geehrte Frau Meier[\SIE][ER]geehrter Herr Müller[\ER] wir laden Sie...';

Jetzt das jeweils falsche rausloeschen

$male =~ s@[SIE].+?[\SIE]@@g;
$male =~ s@[ER].+?[\ER]@@g;
---

Versuchs mal. Ich hab's nicht getestet, sollte aber klappen!