Select Code to Download

sub unchomp {
  my ($s,$suffix) = (@_,"\n");
...
  my $slen=length($suffix);
  substr($s,-$slen) eq $suffix ? $s : ($s.$suffix)
}