while(<DATA>) {
  chomp;
  next if /^(?:qcp|#)/ .. /^#cardtype/ or 0 == length;

  # do stuff here
}