Looks like a job for the flip-flop operator (..) as seen in perlop e.g

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

  # do stuff here
}
[download]

update: added check for blank lines