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