Select Code to Download

m#<TD>(.*?)</TD>#g

my $html = "<TR><TD>Foo:</TD><TD> bar </TD></TR>";

my $var = ( $html =~ m#<TD>(.*?)</TD>#g )[1];

Foo:</TD><TD> bar