s/_(?:-_)+/_/g;
 s/^[-_]+//;
 s/[-_]+$//;