my ($subpath) = $path =~ m|$magic_word/(.*)/.*|;
print $subpath, $/;