if($in =~ m/^\s+\d+\s+(.*)\d+\s+(.*)$/){
 print FH ("$1\n");
 print FH ("$2\n");
}