}

Огромная благодарность российскому разработчику библиотек pvd – Денису Познякову (Denis Poznyakov, pvdenis@usa.net) – за минимальный код перекодировки русских символов. Перекодировка основывается на данных полей письма, тут нет попытки создания какого-либо анализатора.

sub encoder {

  my $enstring = shift; my $cfrom = shift; my $cto = shift;

  my %codefunk = (

    win => "xC0xC1xC2xC3xC4xC5xC6xC7xC8xC9xCAxCBxCCxCDxCExCFxD0xD1xD2xD3xD4xD5xD6xD7xD8xD9xDAxDBxDCxDDxDExDFxE0xE1xE2xE3xE4xE5xE6xE7xE8xE9xEAxEBxECxEDxEExEFxF0xF1xF2xF3xF4xF5xF6xF7xF8xF9xFAxFBxFCxFDxFExFF",

    koi => "xE1xE2xF7xE7xE4xE5xF6xFAxE9xEAxEBxECxEDxEExEFxF0xF2xF3xF4xF5xE6xE8xE3xFExFBxFDxFFxF9xF8xFCxE0xF1xC1xC2xD7xC7xC4xC5xD6xDAxC9xCAxCBxCCxCDxCExCFxD0xD2xD3xD4xD5xC6xC8xC3xDExDBxDDxDFxD9xD8xDCxC0xD1",

    iso => "xB0xB1xB2xB3xB4xB5xB6xB7xB8xB9xBAxBBxBCxBDxBExBFxC0xC1xC2xC3xC4xC5xC6xC7xC8xC9xCAxCBxCCxCDxCExCFxD0xD1xD2xD3xD4xD5xD6xD7xD8xD9xDAxDBxDCxDDxDExDFxE0xE1xE2xE3xE4xE5xE6xE7xE8xE9xEAxEBxECxEDxEExEF",

    dos => "x80x81x82x83x84x85x86x87x88x89x8Ax8Bx8Cx8Dx8Ex8Fx90x91x92x93x94x95x96x97x98x99x9Ax9Bx9Cx9Dx9Ex9FxA0xA1xA2xA3xA4xA5xA6xA7xA8xA9xAAxABxACxADxAExAFxE0xE1xE2xE3xE4xE5xE6xE7xE8xE9xEAxEBxECxEDxEExEF",

    koi_lc => "tr/xB3xE0-xFF/xA3xC0-xDF/",

    koi_uc =>"tr/xA3xC0-xDF/xB3xE0-xFF/",

    win_lc => "tr/xA8xC0-xDF/xB8xE0-xFF/",

    win_uc =>"tr/xB8xE0-xFF/xA8xC0-xDF/",

    alt_lc => "tr/xF0x80-x9F/xF1xA0-xAFxE0-xEF/",

    alt_uc => alt_lc => "tr/xF1xA0-xAFxE0-xEF/xF0x80-x9F/",

    iso_lc => "tr/xA1xB0-xCF/xF1xD0-xEF/",

    iso_uc => "tr/xF1xD0-xEF/xA1xB0-xCF/",

    dos_lc => "tr/x80-x9F/xA0-xAFxE0-xEF/",

    dos_uc => "tr/xA0-xAFxE0-xEF/x80-x9F/",

    mac_lc => "tr/xDDx80-xDF/xDExE0-xFExDF/",

    mac_uc => mac_lc => "tr/xDExE0-xFExDF/xDDx80-xDF/"

  );