Select Code to Download

>perl -MData::Dumper -e "$_=qq(1\n2\n3); print Dumper split /\n/,$_,-1
+"
$VAR1 = '1';
...
$VAR3 = '3';
$VAR4 = '';