gistfile1.pl

sub lcp(@) {
  use List::Util 'reduce';
  our ($a, $b);
  reduce {
    ($a ^ $b) =~ m/^\0*+/;
    substr $a, 0, $+[0]
  } @_
}

sub comp($) {
  my $w = shift;
  if (local $_ = lcp <\Q$w\E*>) {
    $_ .= '/' if -d;
    $_ .= ' ' if -f;
    return substr $_, length $w
  }
  return ''
}