my @aSubNos = $$ref_sRecord =~ m/<subno>(.+?)<\/subno>/sig;