in reply to Re: Regex to get everything before first /in thread Regex to get everything before first /
Another one:
my ($stuff) = $thing =~ m{[^/]*}g; [download]