Select Code to Download

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

....
<level>1</level>
...
<subtxt>Subject 2</subtxt>
</subject>
....

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

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