in reply to Is it possible to use repetition within a Regular Expression Substitution?
perl -pi -e 'BEGIN{$x = "*" x 80} s/^-{40}^M*$/$x/' logfile [download]