#!/usr/local/bin/perl -I ~dberansk/perl/lib

use Unicode::String qw( utf8 latin1 );

$u = utf7("+BCEEQwQ0BE8- +BD8EPg- +BEEERwQ1BEIERwQ4BDoEQw-, +BE8-");

print $u->utf8();

