$padding ="0" x $field_size;
$padded_string = substring $text . $padding, 0, $field_size;