I would write that as:

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

Or even

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