my $stars = "*" x 80;
s/^-{40}\cM*$/$stars/;

##</code><code>##

my $stars = "*" x 80;
my $dashes = "-" x 40;
s/^$dashes\cM*$/$stars/;