open(F,'backup.ctrl') or die("Error:$!\n");
while(<F>) {
  chomp; @F = split /\t/;
  next if substr ($F[0],0,1) eq '#';
  print @F;
}