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