open FH, "<$ARGV[0]";
while (<FH>) {
#  next unless /^\s*\d+\s+\d+\s+\d+\s+\d+\s+\d+\s+\d+\s+\d+\s+\d+\s+\d+\s+\d+\s+\d+\s+\d+\s+\d+\s+\d+\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\s*$/;
  next unless /(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\s*$/;
#  next unless /^\s*[\d\.]+\s+[\d\.]+\s+([\d\.]+)\s+([\d\.]+)\s+([\d\.]+)\s+([\d\.]+)\s*$/;
#  next unless /^\s*(\d+)\s+\d+\s+(\d+)\s+/;
  print "$1 $2 $3 $4\n";
}
close FH;