Link to what he's using in perlsecret. Interestingly enough Deparse doesn't get much to work with (looks like the constant values generated are what's available; 5.26.1 using -MO=Deparse,-p,-q)

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