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