in reply to perl code in regex replacement

See perlre/perlretut, and use /e if you want code execution