#!/usr/bin/perl use strict; use utf8; use Template::Simple; my $fn = "/home/scrato/sighara/sighara.exz"; open my $exz, "<:encoding(cp1252)", $fn or die "Couldn't open `$fn': $!"; # read quotes my @quotes; while(my $line = <$exz>) { my ($name, $nicks, $quote) = split /\x{AE}/, $line; my ($nick1, $nick2) = split /\x{AA}/, $nicks; push @quotes, { name => $name, quote => $quote, nick1 => $nick1, nick2 => $nick2, }; } # escape special chars for my $quote (@quotes) { for(values %$quote) { s/([\P{IsASCII}<>&])/'&#'.ord($1).';'/ge; } } # collect template data my $ts = Template::Simple->new(); my $template = join '', ; my $data = { quotes => [ @quotes ], }; # render page print "Content-type: text/html; charset=UTF-8\n\n"; binmode(STDOUT, ":utf8"); print ${$ts->render($template, $data)}; __DATA__ Sighara quotes

#sighara