You can also use a regexp :

my @arr = $string =~ m,([^/]+),g;

Please note that Perl's split isn't PHP's and expects a pattern (or ' ') as its first argument, so you'd better not split on a string if you don't know what's happening there.