Select Code to Download

use Data::Dumper;

...
@list = split($delimiter, $line);

print Dumper @list;

$VAR1 = 'foo';
$VAR2 = 'bar';