in reply to Re^3: Avoiding repeated undefs
in thread [Solved] Avoiding repeated undefs

Note that you need 5.22 for this to work. See Assignment to list repetition in Perl 5.22 delta. See also ()x= in Syntax::Construct.

map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]