use strict;
use warnings;

my $chn1 = "Les sanglots longs\ndes violons\nde l'automne bercent mon cœur\nd'une langueur\nmonotone";
my $chn2 = $chn1; # deux exemplaires de la même chaîne

my $er = '^(.*)$';

$chn1 =~ s/$er/'**'.uc($1).'--'/mge;
print $chn1;
#print "\n---------\n";
#$chn2 =~ s/$er/**$1--/s;
#print $chn2;