[Perl] Ajouter en fin de ligne d'une variable

my $fin_de_ligne = "\n"; # ou "<br>

my $texte = "
ligne 1
ligne 2
ligne 3
...
$fin_de_ligne
";

lami20j@debian:~/trash$ cat texte.pl
#!/usr/bin/perl
use strict;use warnings;

open TEXT ,">texte.txt"  or die "E/S : $!\n";
open HTML ,">texte.html" or die "E/S : $!\n";

my $texte = <<EOF
ligne1
lige2
ligne3
...
EOF
;

print TEXT "$texte";

(my $html = $texte) =~s/\n/<br>/g;
print HTML "$html";
__END__
lami20j@debian:~/trash$ perl texte.pl
lami20j@debian:~/trash$ cat texte.txt
ligne1
lige2
ligne3
...
lami20j@debian:~/trash$ cat texte.html
ligne1<br>lige2<br>ligne3<br>...<br>