Select Code to Download

# this assumes that $s will never be longer than $max_length
sub my_pad {
...
  return $s . $pad_string if $dir eq 'R';
  return $pad_string . $s;
}