boopsie

# returns longest common prefix of a list of strings
sub lcp
{
    my $match = shift;
    substr($match, (($match ^ $_) =~ /^\0*/, $+[0])) = '' for @_;
    $match;
}