$_ = "clrf__pbssCOMRAM&(0+255),c";

s/(.*)\&.*(\,c)/$1$2/;

print $_;
[download]

really sorry abt the previous code there was a mistake