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