#!/usr/bin/perl

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

my @arr = split("\/*",$string);

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


Output :-
:_a_b_c:

##</code><code>##

print ":" , join("_",@arr[1..$#arr]) , ":\n";