$ perl -MUnicode::UCD=charprops_all -E 'say charprops_all("U+$_")->{Age} for qw{3b1 df a3}'
V1_1
V1_1
V1_1