$junk =~ /<CorpActnEvtId>(\d+)<\/CorpActnEvtId>/; 
my $id = $1;