Select Code to Download

use strict;

...
}

print "@result\n";

...
while (@data) {
...
    @data = grep { index($data[0], $_) == -1 } @data;
}
...