Help for this page

Select Code to Download


  1. or download this
    #!/usr/local/bin/perl5.8.5

...
my $field='From: =?koi8-r?B?7s/Xb2PUdSDT1NLBeG/Xwc7J0Q==?= <m2z19uyn1b
+@rrpa.com>';
my $decoded = unmime( $field );
print $decoded
  2. or download this
    ./decode.pl
ignoring text in character set `KOI8-R'
 at ./decode.pl line 7
From: 1 <m2z19uyn1b@rrpa.com>
  3. or download this
    $ python2.3 
Python 2.3.4 (#1, Aug  3 2004, 16:01:36) 
...
>>> print h
=?koi8-r?b?7s/Xb2PUdSDT1NLBeG/Xwc7J0Q==?=
>>>