Select Code to Download

sub maxprefix {
  my $p = shift;
  for (@_) { chop $p until /^\Q$p/ }
  return $p;
}

sub maxprefix {
  my $s = reverse shift;
...
  chop $p;
  return $p;
}