$str = sprintf '%-40s', $str;