>perl -wMstrict -le
"$_ = 'a_b__c___';
 print qq{before: '$_'};
 ;;
 s/_/\_/g;
 print qq{after:  '$_'};
"
before: 'a_b__c___'
after:  'a_b__c___'