$_ = "clrf__pbssCOMRAM&(0+255),c";
s/(.*\&).*(\,c)/$1$2/;
print $_;