my @msg = grep /\S/, @{$pop->get($msgnum)};
# then the @{$msg} stuff has to change, of course