undef $/;
$line=<DATA>;

$DisTitle=$ARGV[0];

($FPage)=$line=~m#<ContentItem>(?:[^<]+|<(?!/?ContentItem>))+<FirstPageNumber>(.+?)</FirstPageNumber>(?:[^<]+|<(?!/?ContentItem>))+<DistinctiveTitle>$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>