Select Code to Download

my @data;
while( <IN> ) {
    chomp;
    push @data, $_ unless /^\s*$/ or /^POLYMORPH/;
}

$VAR1 = [
          'C 1, 1( 9)',
...
          'C 1, 1( 9)',
          'C 2, 2(18)'
        ];