$b = "Adjektive (Nominalflexion)~87"; $c = "\{$sep$b$sep\}"; $r = "
some Text $b some other text
"; $text =~ s/$c/$r/s;