Re: Regex to get everything before first /

[toolic]

How's this:

use warnings;
use strict;

my $thing = 'foo/bar/goo';
(my $stuff) = ($thing =~ /^([^\/]+)/);
print "$stuff\n";

__END__

foo

[limzz]

I love you.