foreach my $line(@all_lines) {
     $line =~ s/-//g
}

##</code><code>##

$line =~ s/^-//g