$ perl -MO=Deparse,-p -e 'my $str = " " x ($col%$maxcol);'
(my $str = (' ' x ($col % $maxcol)));
-e syntax OK