#!/usr/bin/perl
use Unicode::IMAPUtf7;

my $IMAPUtf7 = Unicode::IMAPUtf7->new();

$encode = '[from ABC/&ZbBbomI2--DATA/INDIA/JonathanTest.] [from ABC/&ZbBbomI2--DATA/Vietnam/TrysoftTest]';
$decode = $IMAPUtf7->decode($encode);
print("[$decode]\n");