my ($var) = $html =~ /
(.*?)<\/div>/; print $var;