Using the e regexp modifier, you can execute code in the replacement part. Consider:

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

The result would be 'abc abc'.

Hope this helps, -gjb-