1 2 3 4 5 6 7 8 9 10 11
$template_Name = 'Ciccio'; $a = ':)'; $x = ' QUesto è un #a# templato piuttosto complesso di nome #template_Name#. '; print "<b>BEFORE</b>:<br> $x "; $x=~s/#(\w+?)#/${$1}/g; print $x;
1 2 3 4 5 6 7
<b>BEFORE</b>:<br> QUesto è un #a# templato piuttosto complesso di nome #template_Name#. QUesto è un :) templato piuttosto complesso di nome Ciccio.