my (undef, $new, $hit) = $in =~ m{
    <td><img \s+ src \s* = \s* 
    (["']) foo[.]jpg \1 >
    (<a \s+ href \s* = (["']) [^"']* \4 >
     [^<]* </a>}ix;