# Pad out with trailing whitespace as necessary
sub pad {
    my ($data, $len) = @_;
    my $pad = $len - (length $data);
    $data .= " " x $pad unless $pad < 0;
  return $data;
}

# Get rid of leading/trailing whitespace
sub normalise {
    my $value = shift;
    $value = s/^\s+|\s+$//gm;
  return $value;
}