#!/usr/bin/perl
# Author:   Hai Binh Nguyen <bb (at) zecoj (dot) com>
# Name:     mutt-uvfilter.pl
# Desc:     utf-8 -> viqr display filter for mutt

my @input = <STDIN>;
$size = @input;
for($i = 0; $i <= $size; $i++)
{
    my $x = $input[$i];
    $x = conv ($x);
    print "$x";
}

sub conv ($)
{
    my ($input) = @_;

    # UTF-8 ############################
    $input =~ s/\xc3\xa0/a`/g;
    $input =~ s/\xe1\xba\xa3/a?/g;
    $input =~ s/\xc3\xa3/a~/g;
    $input =~ s/\xc3\xa1/a'/g;
    $input =~ s/\xe1\xba\xa1/a./g;
    $input =~ s/\xc4\x83/a(/g;
    $input =~ s/\xe1\xba\xb1/a(`/g;
    $input =~ s/\xe1\xba\xb3/a(?/g;
    $input =~ s/\xe1\xba\xb5/a(~/g;
    $input =~ s/\xe1\xba\xaf/a('/g;
    $input =~ s/\xe1\xba\xb7/a(./g;
    $input =~ s/\xc3\xa2/a^/g;
    $input =~ s/\xe1\xba\xa7/a^`/g;
    $input =~ s/\xe1\xba\xa9/a^?/g;
    $input =~ s/\xe1\xba\xab/a^~/g;
    $input =~ s/\xe1\xba\xa5/a^'/g;
    $input =~ s/\xe1\xba\xad/a^./g;

    $input =~ s/\xc3\xa8/e`/g;
    $input =~ s/\xe1\xba\xbb/e?/g;
    $input =~ s/\xe1\xba\xbd/e~/g;
    $input =~ s/\xc3\xa9/e'/g;
    $input =~ s/\xe1\xba\xb9/e./g;
    $input =~ s/\xc3\xaa/e^/g;
    $input =~ s/\xe1\xbb\x81/e^`/g;
    $input =~ s/\xe1\xbb\x83/e^?/g;
    $input =~ s/\xe1\xbb\x85/e^~/g;
    $input =~ s/\xe1\xba\xbf/e^'/g;
    $input =~ s/\xe1\xbb\x87/e^./g;

    $input =~ s/\xc3\xac/i`/g;
    $input =~ s/\xe1\xbb\x89/i?/g;
    $input =~ s/\xc4\xa9/i~/g;
    $input =~ s/\xc3\xad/i'/g;
    $input =~ s/\xe1\xbb\x8b/i./g;

    $input =~ s/\xc3\xb2/o`/g;
    $input =~ s/\xe1\xbb\x8f/o?/g;
    $input =~ s/\xc3\xb5/o~/g;
    $input =~ s/\xc3\xb3/o'/g;
    $input =~ s/\xe1\xbb\x8d/o./g;
    $input =~ s/\xc3\xb4/o^/g;
    $input =~ s/\xe1\xbb\x93/o^`/g;
    $input =~ s/\xe1\xbb\x95/o^?/g;
    $input =~ s/\xe1\xbb\x97/o^~/g;
    $input =~ s/\xe1\xbb\x91/o^'/g;
    $input =~ s/\xe1\xbb\x99/o^./g;
    $input =~ s/\xc6\xa1/o+/g;
    $input =~ s/\xe1\xbb\x9d/o+`/g;
    $input =~ s/\xe1\xbb\x9f/o+?/g;
    $input =~ s/\xe1\xbb\xa1/o+~/g;
    $input =~ s/\xe1\xbb\x9b/o+'/g;
    $input =~ s/\xe1\xbb\xa3/o+./g;
    
    $input =~ s/\xc3\xb9/u`/g;
    $input =~ s/\xe1\xbb\xa7/u?/g;
    $input =~ s/\xc5\xa9/u~/g;
    $input =~ s/\xc3\xba/u'/g;
    $input =~ s/\xe1\xbb\xa5/u./g;
    $input =~ s/\xc6\xb0/u+/g;
    $input =~ s/\xe1\xbb\xab/u+`/g;
    $input =~ s/\xe1\xbb\xad/u+?/g;
    $input =~ s/\xe1\xbb\xaf/u+~/g;
    $input =~ s/\xe1\xbb\xa9/u+'/g;
    $input =~ s/\xe1\xbb\xb1/u+./g;
    $input =~ s/\xe1\xbb\xb3/y`/g;
    $input =~ s/\xe1\xbb\xb7/y?/g;
    $input =~ s/\xe1\xbb\xb9/y~/g;
    $input =~ s/\xc3\xbd/y'/g;
    $input =~ s/\xe1\xbb\xb5/y./g;
    
    $input =~ s/\xc4\x91/dd/g;

    $input =~ s/\xc3\x80/A`/g;
    $input =~ s/\xe1\xba\xa2/A?/g;
    $input =~ s/\xc3\x83/A~/g;
    $input =~ s/\xc3\x81/A'/g;
    $input =~ s/\xe1\xba\xa0/A./g;
    $input =~ s/\xc4\x82/A(/g;
    $input =~ s/\xe1\xba\xb0/A(`/g;
    $input =~ s/\xe1\xba\xb2/A(?/g;
    $input =~ s/\xe1\xba\xb4/A(~/g;
    $input =~ s/\xe1\xba\xae/A('/g;
    $input =~ s/\xe1\xba\xb6/A(./g;
    $input =~ s/\xc3\x82/A^/g;
    $input =~ s/\xe1\xba\xa6/A^`/g;
    $input =~ s/\xe1\xba\xa8/A^?/g;
    $input =~ s/\xe1\xba\xaa/A^~/g;
    $input =~ s/\xe1\xba\xa4/A^'/g;
    $input =~ s/\xe1\xba\xac/A^./g;

    $input =~ s/\xc3\x88/E`/g;
    $input =~ s/\xe1\xba\xba/E?/g;
    $input =~ s/\xe1\xba\xbc/E~/g;
    $input =~ s/\xc3\x89/E'/g;
    $input =~ s/\xe1\xba\xb8/E./g;
    $input =~ s/\xc3\x8a/E^/g;
    $input =~ s/\xe1\xbb\x80/E^`/g;
    $input =~ s/\xe1\xbb\x82/E^?/g;
    $input =~ s/\xe1\xbb\x84/E^~/g;
    $input =~ s/\xe1\xba\xbe/E^'/g;
    $input =~ s/\xe1\xbb\x86/E^./g;

    $input =~ s/\xc3\x8c/I`/g;
    $input =~ s/\xe1\xbb\x88/I?/g;
    $input =~ s/\xc4\xa8/I~/g;
    $input =~ s/\xc3\x8d/I'/g;
    $input =~ s/\xe1\xbb\x8a/I./g;

    $input =~ s/\xc3\x92/O`/g;
    $input =~ s/\xe1\xbb\x8e/O?/g;
    $input =~ s/\xc3\x95/O~/g;
    $input =~ s/\xc3\x93/O'/g;
    $input =~ s/\xe1\xbb\x8c/O./g;
    $input =~ s/\xc3\x94/O^/g;
    $input =~ s/\xe1\xbb\x92/O^`/g;
    $input =~ s/\xe1\xbb\x94/O^?/g;
    $input =~ s/\xe1\xbb\x96/O^~/g;
    $input =~ s/\xe1\xbb\x90/O^'/g;
    $input =~ s/\xe1\xbb\x98/O^./g;
    $input =~ s/\xc6\xa0/O+/g;
    $input =~ s/\xe1\xbb\x9c/O+`/g;
    $input =~ s/\xe1\xbb\x9e/O+?/g;
    $input =~ s/\xe1\xbb\xa0/O+~/g;
    $input =~ s/\xe1\xbb\x9a/O+'/g;
    $input =~ s/\xe1\xbb\xa2/O+./g;

    $input =~ s/\xc3\x99/U`/g;
    $input =~ s/\xe1\xbb\xa6/U?/g;
    $input =~ s/\xc5\xa8/U~/g;
    $input =~ s/\xc3\x9a/U'/g;
    $input =~ s/\xe1\xbb\xa4/U./g;
    $input =~ s/\xc6\xaf/U+/g;

    $input =~ s/\xe1\xbb\xaa/U+`/g;
    $input =~ s/\xe1\xbb\xac/U+?/g;
    $input =~ s/\xe1\xbb\xae/U+~/g;
    $input =~ s/\xe1\xbb\xa8/U+'/g;
    $input =~ s/\xe1\xbb\xb0/U+./g;
    $input =~ s/\xe1\xbb\xb2/Y`/g;
    $input =~ s/\xe1\xbb\xb6/Y?/g;
    $input =~ s/\xe1\xbb\xb8/Y~/g;
    $input =~ s/\xc3\x9d/Y'/g;
    $input =~ s/\xe1\xbb\xb4/Y./g;

    $input =~ s/\xc4\x90/DD/g;
    #/UTF-8 ############################


    # NCR-DEC ##########################
    $input =~ s/\340/a`/g;
    $input =~ s/&?#7843;/a?/g;
    $input =~ s/\343/a~/g;
    $input =~ s/\341/a'/g;
    $input =~ s/&?#7841;/a./g;
    $input =~ s/&?#259;/a(/g;
    $input =~ s/&?#7857;/a(`/g;
    $input =~ s/&?#7859;/a(?/g;
    $input =~ s/&?#7861;/a(~/g;
    $input =~ s/&?#7855;/a('/g;
    $input =~ s/&?#7863;/a(./g;
    $input =~ s/\342/a^/g;
    $input =~ s/&?#7847;/a^`/g;
    $input =~ s/&?#7849;/a^?/g;
    $input =~ s/&?#7851;/a^~/g;
    $input =~ s/&?#7845;/a^'/g;
    $input =~ s/&?#7853;/a^./g;

    $input =~ s/\350/e`/g;
    $input =~ s/&?#7867;/e?/g;
    $input =~ s/&?#7869;/e~/g;
    $input =~ s/\351/e'/g;
    $input =~ s/&?#7865;/e./g;
    $input =~ s/\352/e^/g;
    $input =~ s/&?#7873;/e^`/g;
    $input =~ s/&?#7875;/e^?/g;
    $input =~ s/&?#7877;/e^~/g;
    $input =~ s/&?#7871;/e^'/g;
    $input =~ s/&?#7879;/e^./g;

    $input =~ s/\354/i`/g;
    $input =~ s/&?#7881;/i?/g;
    $input =~ s/&?#297;/i~/g;
    $input =~ s/\355/i'/g;
    $input =~ s/&?#7883;/i./g;

    $input =~ s/\362/o`/g;
    $input =~ s/&?#7887;/o?/g;
    $input =~ s/\365/o~/g;
    $input =~ s/\363/o'/g;
    $input =~ s/&?#7885;/o./g;
    $input =~ s/\364/o^/g;
    $input =~ s/&?#7891;/o^`/g;
    $input =~ s/&?#7893;/o^?/g;
    $input =~ s/&?#7895;/o^~/g;
    $input =~ s/&?#7889;/o^'/g;
    $input =~ s/&?#7897;/o^./g;
    $input =~ s/&?#417;/o+/g;
    $input =~ s/&?#7901;/o+`/g;
    $input =~ s/&?#7903;/o+?/g;
    $input =~ s/&?#7905;/o+~/g;
    $input =~ s/&?#7899;/o+'/g;
    $input =~ s/&?#7907;/o+./g;

    $input =~ s/\371/u`/g;
    $input =~ s/&?#7911;/u?/g;
    $input =~ s/&?#361;/u~/g;
    $input =~ s/\372/u'/g;
    $input =~ s/&?#7909;/u./g;
    $input =~ s/&?#432;/u+/g;
    $input =~ s/&?#7915;/u+`/g;
    $input =~ s/&?#7917;/u+?/g;
    $input =~ s/&?#7919;/u+~/g;
    $input =~ s/&?#7913;/u+'/g;
    $input =~ s/&?#7921;/u+./g;
    $input =~ s/&?#7923;/y`/g;
    $input =~ s/&?#7927;/y?/g;
    $input =~ s/&?#7929;/y~/g;
    $input =~ s/\375/y'/g;
    $input =~ s/&?#7925;/y./g;

    $input =~ s/&?#273;/dd/g;

    $input =~ s/\300/A`/g;
    $input =~ s/&?#7842;/A?/g;
    $input =~ s/\303/A~/g;
    $input =~ s/\301/A'/g;
    $input =~ s/&?#7840;/A./g;
    $input =~ s/&?#258;/A(/g;
    $input =~ s/&?#7856;/A(`/g;
    $input =~ s/&?#7858;/A(?/g;
    $input =~ s/&?#7860;/A(~/g;
    $input =~ s/&?#7854;/A('/g;
    $input =~ s/&?#7862;/A(./g;
    $input =~ s/\302/A^/g;
    $input =~ s/&?#7846;/A^`/g;
    $input =~ s/&?#7848;/A^?/g;
    $input =~ s/&?#7850;/A^~/g;
    $input =~ s/&?#7844;/A^'/g;
    $input =~ s/&?#7852;/A^./g;

    $input =~ s/\310/E`/g;
    $input =~ s/&?#7866;/E?/g;
    $input =~ s/&?#7868;/E~/g;
    $input =~ s/\311/E'/g;
    $input =~ s/&?#7864;/E./g;
    $input =~ s/\312/E^/g;
    $input =~ s/&?#7872;/E^`/g;
    $input =~ s/&?#7874;/E^?/g;
    $input =~ s/&?#7876;/E^~/g;
    $input =~ s/&?#7870;/E^'/g;
    $input =~ s/&?#7878;/E^./g;

    $input =~ s/\314/I`/g;
    $input =~ s/&?#7880;/I?/g;
    $input =~ s/&?#296;/I~/g;
    $input =~ s/\315/I'/g;
    $input =~ s/&?#7882;/I./g;

    $input =~ s/\322/O`/g;
    $input =~ s/&?#7886;/O?/g;
    $input =~ s/\325/O~/g;
    $input =~ s/\323/O'/g;
    $input =~ s/&?#7884;/O./g;
    $input =~ s/\324/O^/g;
    $input =~ s/&?#7890;/O^`/g;
    $input =~ s/&?#7892;/O^?/g;
    $input =~ s/&?#7894;/O^~/g;
    $input =~ s/&?#7888;/O^'/g;
    $input =~ s/&?#7896;/O^./g;
    $input =~ s/&?#416;/O+/g;
    $input =~ s/&?#7900;/O+`/g;
    $input =~ s/&?#7902;/O+?/g;
    $input =~ s/&?#7904;/O+~/g;
    $input =~ s/&?#7898;/O+'/g;
    $input =~ s/&?#7906;/O+./g;

    $input =~ s/\331/U`/g;
    $input =~ s/&?#7910;/U?/g;
    $input =~ s/&?#360;/U~/g;
    $input =~ s/\332/U'/g;
    $input =~ s/&?#7908;/U./g;
    $input =~ s/&?#431;/U+/g;

    $input =~ s/&?#7914;/U+`/g;
    $input =~ s/&?#7916;/U+?/g;
    $input =~ s/&?#7918;/U+~/g;
    $input =~ s/&?#7912;/U+'/g;
    $input =~ s/&?#7920;/U+./g;
    $input =~ s/&?#7922;/Y`/g;
    $input =~ s/&?#7926;/Y?/g;
    $input =~ s/&?#7928;/Y~/g;
    $input =~ s/\335/Y'/g;
    $input =~ s/&?#7924;/Y./g;

    $input =~ s/&?#272;/DD/g;
    #/NCR-DEC ##########################

    # MISC #############################
    $input =~ s/&agrave;/a`/g;
    $input =~ s/&egrave;/e`/g;
    $input =~ s/&igrave;/i`/g;
    $input =~ s/&ograve;/o`/g;
    $input =~ s/&ugrave;/u`/g;

    $input =~ s/&aacute;/a'/g;
    $input =~ s/&eacute;/e'/g;
    $input =~ s/&iacute;/i'/g;
    $input =~ s/&oacute;/o'/g;
    $input =~ s/&uacute;/u'/g;

    $input =~ s/&atilde;/a~/g;
    $input =~ s/&etilde;/e~/g;
    $input =~ s/&itilde;/i~/g;
    $input =~ s/&otilde;/o~/g;
    $input =~ s/&utilde;/u~/g;

    $input =~ s/\360/dd/g;
    #/MISC ##############################

    return $input;
}