#!/usr/bin/perl
use strict;
use warnings;

# 829735

my $replacement ="*"x80;

print "$replacement \n";

my @logfile = <DATA>;
for my $logfileline(@logfile) {
	$logfileline =~ s|^\-+|$replacement|;
	print "$logfileline \n";
}

__DATA__
phoney content
--------------------------------------
more dummy stuff