use strict;
use warnings;

foreach ('<td><img src="foo.jpg">'.
         '<a href="index3.html">New index</a></td>',
         '<td><a href="index3.html">New index</a></td>') {
         if (/<td>(?:<img[ ]src="([^"]+)">)?
              <a[ ]href="([^"]+)">((?:(?!<\/a>).)*)
              <\/a>/six) {
         	print "Matched!\tImg=",
         	      ($1 ? $1 : 'None'),
         	      "\tLink: $2\t Link Text: $3\n";
         }
}