Select Code to Download

BEGIN { $/ = "\n"; $\ = "\n"; }
use strict;
use warnings;
map({print((('[' . $_) . ']'));} scalar((!1)), '', 0, 0);