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