Help for this page
my $stars = "*" x 80; s/^-{40}\cM*$/$stars/;
my $stars = "*" x 80; my $dashes = "-" x 40; s/^$dashes\cM*$/$stars/;