Select Code to Download

foreach $pid (@pids) {
   my $result;
...
   $result = $1;
   push (@pidCans, $result);
}

foreach $pid (@pids) {
   $pid =~ /\|(.*)$/;
   push @pidCans, "$1";
}