while(<DATA>) {
        print;
        chomp;
        tr/\cM//d;
        my @x = split(/\|/,$_);
        my @y = map{($_ =~ /[\. ]/)?"":$_}@x;
        print join("|",@y) . "\n";
}
__DATA__
6|11-XXX-03|999999999|.| |0000|.|.|.|.|.|.| | |.| | | | |.|.| |.|0|N

##</code><code>##

6|11-XXX-03|999999999|||0000||||||||||||||||||0|N