Select Code to Download

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

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

my ($stuff) = split(qr{/}, $thing, 2);

my ($stuff) = split(qr{/}, $thing);