#!/usr/local/bin/perl -w
open (DATA, "data.txt") or die "Error";
undef $/; # slurp mode
$body=<DATA>;
close DATA;

while ( $body =~ /<tag1>\[(\w+)\]<\/tag1>.*<tag2>(.*)<\/tag2>/g ) {
	print "[$1] => [$2]\n";
}