my $pad = $pad_char x ($max_length - length $s);
return $dir eq 'R' ? "$s$pad" : "$pad$s";