Select Code to Download

@res = split /\n/, $result;
foreach $element (@res){
...
       push @none, $element;
   }
}