open(INPUT, 'original.txt');
open(GOOD, ">good.txt");
open(BAD, ">bad.txt");
while(<INPUT>){
  if(/^([^\t]*\t){15}[^\t]{5}(\t)[^\t]{7}(\t)/){
    print GOOD;
  }
  else{
    print BAD;
  }
}
close GOOD;
close BAD;