7         $in =~ s/[NWSEIPL]//g;

        $in =~ tr/NWSEIPL//d;

     39         s/[^0-9NWSEIPL,.+-]/ /g;

        tr/0-9NWSEIPL,.+-/ /c;

    122                 s/ /./g;

                tr/ /./;

    126                 s/,/./g;

                tr/,/./;

    148                 s/[NE]//g;

                tr/NE//d;

    156                 s/[IP]//g;

                tr/IP//d;