Select Code to Download

  @array = split /\|/, $text, -1;