sub try_char {
    my ($new_char) = @_;
    print "=== Character '$new_char' ===\n";
    printf "\e[%s want an array\e[m\n", wantarray? "101mI DO": "102mI do NOT";
    my @chars = qw( . o O );
    ...
}