#!/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);

$string =~ s/\r?\n|\r/<br>/g;

use strict;
use warnings;

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

my $out_file_name = "new_content.txt";

open( my $infh, "<", $in_file_name) or die "Fehler beim Oeffnen von $in_file_name";
open( my $outfh, ">", $out_file_name ) or die "Fehler beim Anlegen der neuen Datei $out_file_name";
print "\nDateien zum kopieren geoeffnet\n";
local $/; # enable localized slurp mode
my $content = <$infh>;
$content =~ s/$/<br>/gm;
print $outfh $content;
close( $infh ) or die "Fehler beim Schliessen von $in_file_name";
close( $outfh ) or die "Fehler beim Schliessen von $out_file_name";

1;

$string =~ s/(?=\r?\n|\r)/<br>/g;