my @author = $rec =~ m/<key>\s*([^<]*)(?=<)/g;
$col{author} = \@author;