$Value =~ s/%({\ dA-Fa-fА-фа-ф][\ dA-Fa-fА-фа-ф])/ pack ( "C" , hex ($1))/eg;
prosto dobavqsh na kirilica bukvite koito iskash da match-va, v sluchaq {А-Фа-ф] i si raboti

no po dobriq variant e da pozlvash CGI modula vmesto tova pack()
use CGI;
$Value = param -> param("Value")
$value = ...... #regexp

Po secure i po-dobro e i ako ti se zanimava vij manual-a
No vse pak gorniq primer shte ti svasrhi rabota

__________________________

Съдържаниет е скрито
Влезте за да го видите