@@@@@@@@@
while($maryb=~
/<title>(.*?)<\/title><link>(.*?)<\/link><description>(.*?)<\/description>/)
{
$headline=$1;
$url=$2;
$desc=$3;

  print FILE <<"UP_TO_HERE";
 <title>$headline</title>
 <a href=\"$url\">
 $headline</a><br>
 <font size=\"-1\"><b>$desc</b></font><br><br>

UP_TO_HERE
}
@@@@@@@@@