my $str = 'Abc Abc';
  $str =~ s/(\w+)/lc($1)/ge;