use MIME::WordDecoder;

print "ISO-8859-1:", unmime("=?iso-8859-1?B?SGFsbPY=?="), "\n";
print "WIN-1251  :", unmime("=?windows-1251?B?4eDn+yDk4O3t+/U=?="), "\n";