sub test{ my $value=shift; print $value; return 'la-la-la' ; } my $str = 'Hello _world_'; $str =~ s/_(.*?)_/&test(\1)/g; ##

##

....
 
  ... {_SomeModule_}
 
...