if ( $html =~ m#<TR><TD>Foo:</TD><TD> (.*) </TD></TR># )
{
    $var = $1;
}