my $regex = '(?<!:),|(?<=[:]{2}),';
my $text = '1,This:, is not a problem->::,B,2';
my @test = split( /$regex/, "$text" );

foreach( @test ) {
    print "$_\n";
}