use strict;
use warnings;

use MIME::Words qw(:all);  

my $data = "=?iso-8859-1?B?RFZELVZlcmxlaWggLSBwZXJmZWt0IGb8ciBsYW5nZSBXaW50ZXJhYmVuZGU6IDMgRFZEcyBm/HIgOSw5OSBFVVI=?=";

print decode_mimewords($data);