Select Code to Download

s/([^\0-\x7F])/'&#' . ord($1) . ';'/eg;

$proper_utf8 = pack 'U0a*', $raw_from_database;

s/([^\0-\xFF])/'&#' . ord($1) . ';'/eg;

use Interpolation;
tie %HTML, "Interpolation", \&escape;  # works with global or with lex
+ical: my %HTML
...
        return $s;
    }
}

print qq(
<span class='textTitles'>$HTML{$article->{'title'}}</span><br>
...
Author: $HTML{$article->{'author'}}<br>
Price: $HTML{PrintablePrice($format_list[0])}<br>
);