#!/usr/bin/perl use warnings; use strict; use utf8; my %topurls = (arabic => { title => join(q(), map chr $_, 216, 167, 217, 132, 216, 185, 216, 177, 216, 168, 217, 138, 216, 169), count => 42, users => 11, }, french => { title => 'une chèvre goûte des légumes', count => 11, users => 42, } ); open my $OUT, '>', 'topurls.htm' or die "Can't open output: $!"; print $OUT <<'END_HEADER';
Link | Count | Users |
---|---|---|
Bytes: ', join(' | ', @line), " | |
UTF-8: ', join(' | ', @line), " |