$x =~ m|(?:[^/]/)*/(.*)};
print $1;