while(<DATA>){
    next if $_ eq $/;
    push @data, $_;
}

# shorter:

$_ ne $/ and push @data, $_ while <DATA>;

##</code><code>##

while(<DATA>){
    chomp;
    next if $_ eq '';
    push @data, $_;
}