Select Code to Download

$ perl -MO=Deparse,-p,-q <<'EOT'
sub return_list { return 3, 2, 1 }
...
($result = ('???', '???', 1));
print(($result . "\n"));
- syntax OK