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

# shorter:

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