#!/usr/bin/perl
use warnings;  
use strict;    
my ($vars);
while <DATA>{
      if (/^qcp|^\#|^\s?\n/){} 
      else {do stuff here}
}
__DATA__
#data...


qcp_junk
qcp_more junk
#cardtype...
NOT_JUNK
NOT_JUNK
etc....