Shell Programming and Scripting

Hi,
I am using the following piece of code for extracting some data from in between some tags ...

Code:

$text =~ /<TAG1>(.*)<\/TAG1>.*<TAG2>(.*)<\/TAG2>.*<TAG3>(.*)<\/TAG4>.*<TAG5>(.*)<\/TAG5>/;
$tag1=$1;
print "\n$tag1";

But I am getting an error like
Use of uninitialized value in concatenation (.) or string.
The script is running fine on Perl 5.8 but not on 5.6.
Is this a version issue? If so then what is the workaround for it?

Well, if it works on one and not the other, it could be a version issue but I don't know for sure. The regexp is probably better written like so:

Code:

$text =~ /<TAG1>(.*?)<\/TAG1>.*?<TAG2>(.*?)<\/TAG2>.*?<TAG3>(.*?)<\/TAG4>.*?<TAG5>(.*?)<\/TAG5>/;
$tag1 = defined $1 ? $1 : 'no match found';
print "\n$tag1";

If you reall only want to capture $1 you should remove all the other parentheses from the regexp as they are aslo capturing pattern matches and storing them in memory for no reason.