next if 1 .. 12;

##</code><code>##

while (<$input>)
{
    next if 1 .. /\@TYPE xy/;
    printf ...;
}