Help for this page

Select Code to Download

Select or download this

sub pp_lcfirst(;$) {
   local $_ = @_ ? $_[0] : $_;
...
   s/\s+/_/g;
   return $_;
}