in reply to place holder

I think you want 

        s/-([bc])/-:$1/g

[download]

In Section Seekers of Perl Wisdom