# hier bekomme ich meinen Text her :
my $QuellTextFenster = $Hauptfenster->Text
$text = $QuellTextFenster->get('1.0', 'end');

# dann mache ich ein paar RegExp Ersetzungen z.B.:
$text =~ s/\[\[Kategorie:[^\]]+\]\]//g;

# zur Kontrolle gebe ich mir den Text nochmal aus
print $text;

# und hier kommt jetzt die Stelle an der es KNALLT!:
Win32::Clipboard::Set($text);