# perl -le '$str='Camelcase'; $str =~ s/(?<=[a-z])(?=[A-Z])/_/g; print + $str;' Camelcase [download]
In reply to Re: global match except last one by dbs in thread global match except last one by utku