$/=">";
while(<F>) {
if ($_=~/\<word1\>(.*)\<word2\>/) {
$g=$1;
}
close(F);