while (1) {
$text =~ s/suchen/ersetzen/;
}