Select Code to Download

       map( [$_, (split('|', $_))[-1] ],

$str =
  join("\n",
...
    map { [$_, ( split /\|/, $_ )[0,1] ] }
    split/\n/, $str
  );