#!/usr/bin/perl -w
use strict;

# Dateien öffnen

my $dateiname = "test.txt";
open(DATEI, ">> $dateiname");

    If ($dateiname =~ s/(die)/XXXXX /g)
     {
        print ($1);
     }

close(DATEI);