Danke, das funktioniert! Ist meine Funktion perfekt?

[Micha]

Vielen Dank Michael Schröpel!

Jetzt funktioniert es endliche so, wie ich es will !!! *breitgrins*
Ich habe jetzt auch eine Funktion geschrieben, um alle regexp-Metazeichen zu ersetzen. Ist meine Funktion vollständig und auch "sinnvoll" programmiert?
Was mir nicht ganz klar ist: Warum muß ich in der Zeile "$Test2=~s/($RegExp)/\$1/g;" $1 schreiben und kann nicht statt dessen nochmal $RegExp schreiben?

Ciao
  Micha

#!/usr/bin/perl
$Test="+*.^$[(Hallo)";
$Test2="*.^$[(Ha";

@RegExpMeta= ('\', '.', '?', '*', '+', '^', '$', '', '(', ')', '[', ']', '{', '}');
for (@RegExpMeta)
  {
  $RegExp='\'.$_;
  $Test2=~s/($RegExp)/\$1/g;
  #print "$RegExp\t$Test2\n";
  }
$Test=~s/$Test2//;
print $Test;