my $line = sprintf "%" . $w . "s ", $str;