#!perl use strict; use Devel::Peek; my $str = "what \x{2018}film about film\x{2019} or \x{2018}film as film\x{2019} might mean"; Dump $str; open OUT,'>:utf8','test.html' or die "$!"; print OUT '

'.$str.'

';