Re^2: Regex to get everything before first /

[jwkrahn]

Another one:

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