Select Code to Download

erickn@isfe:/home/erickn> cat x
use Data::Dumper;
...
print "$record\n";
@record = split /\|/, $record;
print Dumper \@record;

erickn@isfe:/home/erickn> perl x
one|two|three|4|5|six
...
          '5',
          'six'
        ];