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