$ cat unum.pl | grep 'if '
    if ($#ARGV < 0) {
	if ($n =~ m/^\d/) {
	    $n = oct($n) if ($n =~ m/^0/);
	} elsif ($n =~ m/^(b|l)=(.+)/) {
		if ($k->[2] =~ m/\Q$cpat\E/) {
		    if (!$blocktitle) {
		    if ($listall) {
	} elsif ($n =~ m/^h=(.+)/) {
		if ($XHTML_ENTITIES{$k} =~ m/\Q$cpat\E/) {
	} elsif ($n =~ m/^n=(.+)/) {
		if ($UNICODE_NAMES{$k} =~ m/\Q$cpat\E/) {
	} elsif ($n =~ m/^&#/) {
	if (!defined($u)) {
	    if (defined($u)) {
	if (!$chartitle) {
	if ($code >= 0x4E00) {
	    if ($code <= 0x9FFF || ($code >= 0xF900 && $code <= 0xFAFF)) {
	    } elsif ($code >= 0xD800 && $code <= 0xF8FF) {
		if ($code <= 0xDFFF) {
	    } elsif ($code >= 0xAC00 && $code <= 0xD7A3) {
		pop(@s) if $t == 0x11A7;
	    return $block->[2] if $block->[0] <= $code && $block->[1] >= $code;