1234567891011121314
#!/usr/bin/perl -wuse strict;# Dateien öffnenmy $dateiname = "test.txt";open(DATEI, ">> $dateiname"); If ($dateiname =~ s/(die)/XXXXX /g) { print ($1); }close(DATEI);