$zwfile =~ s/—/-/g;