@fields=split(/\s+/);
print FH "$fields[1] $fields[2]\n";
print FH "$fields[4] $fields[5]\n";