4.4BSD/usr/src/old/awk/test/t.substr

substr($2, 1, 1) ~ /[abc]/
substr($2, length($2)) !~ /[a-z]/