sub unchomp {
  my ($s,$suffix) = (@_,"\n");
  die("unchomp called on undef string") unless defined($s);
  die("unchomp called for undef suffix") unless defined($suffix);
  my $slen=length($suffix);
  substr($s,-$slen) eq $suffix ? $s : ($s.$suffix)
}