package lat1;

=head1 NAME

C<lat1.pm> - module for unicode utf8 -> latin1 translation of strings

=head1 SYNOPSIS

   $latin1string = lat1::utf8($utf8string)

=cut

sub utf8{
my $t=shift;
$t =~ s/([ÃÂ])(.)/ $1 eq "Ã" ? chr( ord($2) | 0100): $2 /ge;
$t;
}

1;