my $c = charblock($uChar) || $uChar; # default to original value
# or
my $c = charblock($uChar) or next; # skip iteration