my ($stuff) = $thing =~ m{[^/]*}g;