This is where I wish the magic while (<fh>) was a bit more inclusive, or a bit less special, or something.

Too bad this doesn't work, because it sure makes for a readable idiom:

<DATA> until /^#cardtype/;
while (<DATA>) {
   ...
}
[download]

The closest readable alternative that works seems to be:

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