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