my ($stuff) = $thing =~ m{^(.*?)/}s;