# not recommended! ... or tested ;-)

$vNombre =~ s{&#([0-9]+);}{chr($1)}g;