Select Code to Download

use strict;
use warnings;
...
123,"text",66,"more text"
124,"text1",67,"more text1"
125,"text2",68,"more text2"

$VAR1 = [
          '123|124|125',
...
          '66|67|68',
          '"more text"|"more text1"|"more text2"'
        ];