>Вот пример
>http://www.opennet.me/tips/info/540.shtml
mach::MIME::QuotedPrinUser Contributed Perl Documentmach::MIME::QuotedPrint(3)
NAME
MIME::QuotedPrint - Encoding and decoding of quoted-printable strings
SYNOPSIS
use MIME::QuotedPrint;
$encoded = encode_qp($decoded);
$decoded = decode_qp($encoded);
DESCRIPTION
This module provides functions to encode and decode strings into and
from the quoted-printable encoding specified in RFC 2045 - MIME (Multi-
purpose Internet Mail Extensions). The quoted-printable encoding is
intended to represent data that largely consists of bytes that corre-
spond to printable characters in the ASCII character set. Each non-
printable character (as defined by English Americans) is represented by
a triplet consisting of the character "=" followed by two hexadecimal
digits.
The following functions are provided:
encode_qp($str)
encode_qp($str, $eol)
encode_qp($str, $eol, $binmode)
This function returns an encoded version of the string ($str) given
as argument.