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