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