Select Code to Download

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

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

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

print maxprefix("testing","terse","tester","time"),$/;