Help for this page

Select Code to Download

Select or download this

while(<DATA>){
    next if $_ eq $/;
    push @data, $_;
...
# shorter:

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

Select or download this

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