#!/usr/local/bin/perl 
#-- -*-perl-*-
open(INPUT,"Scope2.txt") || die $!;
open(OUTPUT,">Scope2.new") || die $!;
while(<INPUT>) {
  chomp;
  tr/A-Za-z0-9\.\t-//cd;
  (@vals)=split(/\t/);
  $start=1;
  foreach $val (@vals) {
    if ($start==1) {$start=0;}else {print OUTPUT "\t";}
    if (!$val && $val != 0) {$val=-9999.9;}
    print OUTPUT $val;
  }
  print OUTPUT "\n";
}
close(INPUT);
