Select Code to Download

my $string = "///a/b////c";

my @arr = grep {$_ ne ''} split("\/+",$string);

print ":" , join("_",@arr) , ":\n";

my $string = "//foo//bar///";