while ($data1 =~ m{(<BIB>.*?</BIB>)}gx)