1 until <DATA> =~ /^#cardtype/;
while (<DATA>) {
   ...
}