#!/usr/local/bin/perl 
#-- -*-perl-*-
open(INPUT,"Scope2.txt") || die $!;
open(OUTPUT,">Scope2.new") || die $!;
while(<INPUT>) {
  tr/A-Za-z0-9\.\t-//cd;
  s/\t\t/\t-9999.9\t/ig;
  s/\t\t/\t-9999.9\t/ig;
  print OUTPUT "$_\n";
}
close(INPUT);
close(OUTPUT);
