s/([A-Z])/-lc($1)/eg