Help for this page

Select Code to Download

Select or download this

my @compound;
while (<IN>) {
...
        push(@compound, $_) if (@compound);
    }
}