in reply to Extract Data between Tags

Try the non-greedy match like so ( addition of he question mark ): 
while ($data1 =~ m{(<BIB>.*?</BIB>)}gx)

[download]

Replies are listed 'Best First'.
Re^2: Extract Data between Tags
by ppremkumar (Novice) on Mar 05, 2013 at 18:27 UTC

    Thank you. It worked.

    I am pretty new to regex and Perl, so I appreciate your help.

[reply]

In Section Seekers of Perl Wisdom