use strict;
use warnings;

my $page = join '', <DATA>;

my( @raw_groups ) = split /src\s*=\s*['"]/, $page;

my( @images, @texts );

foreach my $raw ( @raw_groups ) {
    my( $image, $text );
    next unless ( $image, $text ) = $raw =~ 
        m/^
          (http:.+?)        # Capture the file URL
          ['"].+?>          # Anchors
          (.+?)             # Capture the text
          <\/td             # Final anchor
        /isx;    
    print "$image => $text\n";
    push @images, $image;
    push @texts, $text;
}


__DATA__
</a><br><br><table width="100%" cellpadding="2" cellspacing="0" border="0"><tr><td align="left" valign="bottom"><img src='http://images.tek-tips.com/items/image001.gif' alt='Image001' width='40' height='40' border='0'> Description of image here</td><td align="right" valign="bottom"></td>
</tr><tr><td align="left" valign="bottom"><img src='http://images.tek-tips.com/items/image002.gif' alt='Image002' width='40' height='40' border='0'> Description of image here</td><td align="right" valign="bottom"></td>