Help for this page

Select Code to Download

Select or download this

sub lchompx {
  my $lchompstr=quotemeta(@_ > 0 ? $_[-1] : "\n");
...
  }
  $_[0]
}