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