$subject =~ s/_(?=[^_]*$)//;