my( $var ) = $html =~ m# (.*?) #; print "We found it: $var\n" if defined $var;