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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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