The leading string of /'s generates an empty first element. One fix is:

my @arr = grep {length} split("/+",$string);
[download]