my $fixed = sprintf "%-5.5s", $string;