#!/usr/bin/perl

$pattern = $ARGV[0];

$locate = `locate $pattern`;

for $entry (split /\n/, $locate) {
	$entry =~ s/^\///;
	@elements = split /\//, $entry;
	$path = '';
	for $_ (@elements) {
		$path.="/$_";
		last if /$pattern/;
	}
	unless ($done{$path}) {
		$done{$path} = 1;
		print "$path\n";
	}
}