Hi Senthil

Use zero-width negative.

Syntax: PerlFileName.pl "<distinctivetitle>"

undef $/;
$line=<DATA>;

$DisTitle=$ARGV[0];

($FPage)=$line=~m#<ContentItem>(?:[^<]+|<(?!/?ContentItem>))+<FirstPag
+eNumber>(.+?)</FirstPageNumber>(?:[^<]+|<(?!/?ContentItem>))+<Distinc
+tiveTitle>$DisTitle</DistinctiveTitle>(?:[^<]+|<(?!/?ContentItem>))+<
+/ContentItem>#;

print "\n\'$FPage\'";



__DATA__
<ContentItem>
<TextItem>
<TextItemType>03</TextItemType>
<FirstPageNumber>29</FirstPageNumber>
<LastPageNumber>56</LastPageNumber>
<NumberOfPages>28</NumberOfPages>
</TextItem>
<ComponentTypeName>Chapter</ComponentTypeName>
<DistinctiveTitle>The emergence of an Islamic</DistinctiveTitle>
</ContentItem>
<ContentItem>
<TextItem>
<TextItemType>03</TextItemType>
<FirstPageNumber>29</FirstPageNumber>
<LastPageNumber>34</LastPageNumber>
<NumberOfPages>6</NumberOfPages>
</TextItem>
<ComponentTypeName>Chapter</ComponentTypeName>
<DistinctiveTitle>The Arab Conquests</DistinctiveTitle>
</ContentItem>
[download]

Thanks

Gopal.R