open my $VOID, '>', \ my $void;
1 until eval {
    print {$VOID} $text->{string};
# ...