sprintf qq{%-${line_width}s$line_delimiter}, $line;