$ cat junk.pl
! defined and $_ = ' ' for @$row;

$ perl -MO=Deparse,-p junk.pl
;
(defined($_) or ($_ = ' ')) foreach (@$row);
junk.pl syntax OK