#!/home/ben/software/install/bin/perl
use warnings;
use strict;
use utf8;
use FindBin '$Bin';
use Unicode::UTF8 'decode_utf8';
binmode STDOUT, ":encoding(utf8)";
my $broken = 'From the female squash champion fleeing the Taliban, to the gay popstar who became a hit back in macho Brazil, it’s often Canada’s newcomers who can tell its most dramatic stories';
my $ok = fix_title ($broken);
print "$ok\n";
exit;

sub fix_title
{
    my ($title) = @_;
    my @chars = split //, $title;
    my $oktitle = '';
    for my $char (@chars) {
	#print "$char";
	my $o = ord ($char);
	if ($o < 256) {
	    $oktitle .= pack ("C", $o);
	}
	else {
	    warn "large character $o in $title";
	    return $title;
	}
    }
    #print "\n";
    $oktitle = decode_utf8 ($oktitle);
    return $oktitle;
}