#!/usr/bin/perl


$name = '';
$img  = '';
$url  = '';
while(<>)
{
	if(/<img class="UIProfileImage.*src="([^"]+)"/)
	{
		$img = $1;
	}
	if(/<a href=\"([^"]+)ref=fs/)
	{
		$url = $1;
	}
	if(/UIFamilySearchResult_Title">([^<]+)/)
	{
		$name =$1;
		$imgLnk = "<img src='$img' />";
		print "<li><a href=\"${url}\">${imgLnk} ${name}</a></li>\n";
		$img = ''; $url = ''; $name= '';
	}
}
