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;