You are indeed correct, my bad. It does thought have the problem in this case to make the regex very complex since the first match kind of identifies position and then the second rexegp gets the actual value. Between the first and second match there is ALOT of crap.

In this case it look something like.

<td><b>End Date</b></td>^M
<td><img src="http://welcome.hp-ww.com/img/s.gif" idth="1" height="1" 
+border="0" alt=""></td>^M
<td>^M
19 Jun 2012^M
[download]

So the regexp would first have to match "End Date" and then the actual date and ignore everything between.

I tried something like:

my ($result) = $content =~ /End Date.*(\d\d \w\w\w \d\d\d\d)/;
[download]

But it seems there's just to much crap between the lines.

For completness, the long version not using a regex. :-)

#!/usr/bin/perl

use warnings;
use strict;
use HTML::TreeBuilder;

my $html = do{local $/;<DATA>};

my $t = HTML::TreeBuilder->new_from_content($html);

my $start;
for my $td ($t->look_down(_tag => q{td})){
  $start++, next if $td->as_text eq q{End Date};
  next unless $start;
  next if $td->look_down(_tag => q{img});
  print $td->as_text;
  last;
}

__DATA__
<td><b>End Date</b></td>
<td><img src="http://welcome.hp-ww.com/img/s.gif" width="1" height="1"
+ border="0" alt=""></td>
<td>
19 Jun 2012
[download]

I just gave basically the same solution. The difference it that mine works ;) You'll need two fixes to make yours work:
• Use the /s modifier. /./ needs to match newline.
• Change /.*/ to /.*?/. You want to next date, not the last date.

Use this:

$content =~ /End Date/g and $content =~ /(\d\d \w\w\w \d\d\d\d)/g and 
+my $result = $1;
[download]

Nice, although second /g should be omitted