#!/usr/bin/perl

use strict;
use warnings;

print "Bitte geben Sie die Datei an.\n";
my $Datei = <STDIN>;
chomp($Datei);

open (IN,"$datei") or die "Fehler beim oeffnen";
open (OUT,">new_content.txt") or die "Fehler beim Anlegen der neuen Datei";
print "\nDateien zum kopieren geoeffnet\n";
while (<IN>){
        $i = $_;
        #Nach EOL suchen und ersetzen
        print OUT $i."\n";
}
close (IN);
close(OUT);