У нас есть эквивалент preg_callback в Perl?
Допустим, я хочу что-то сопоставить и заменить его возвращаемым значением функции, вызываемой с помощью согласованной вещи.
Используйте модификатор s///e
оценки, и вы можете поместить произвольные Perl-коды во вторую часть.
$x = "this is a test"; $x =~ s/(test)/reverse($1)/eg; print $x; //this is a tset
ref: http://perldoc.perl.org/perlretut.html#Search-and-replace