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