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

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

print $_;