Here's a sloppy example....

   my $str = "cowsCanFly";
   $str =~ s/\G([A-Z]?[a-z])/lcfirst($1) . '-'/eg;
   chop($str);
   print $str, "\n";
[download]

update: man, I feel ashamed posting this. Kanji++