sub extractData {
    ($start, $end, $rawData) = @_;
    if ($rawData =~ /$start\s*(.+?)\s*$end/) {
	$content = $1;
    } else {
	print "no location given, jackass.";
	$content = 0;
}
return $content;
}

$Start = "<i>total:</i>";
$End = "<br>";
$Area_total = extractData($Start, $End, $rawHtml);