Select Code to Download

while (<>) {
    chomp;
...
    @a = split if !/^==/;
    print "@a\n";
}

while (<>) {
    chomp;
...
    my @a = split;
    print "@a\n";
}