while($htmlLines[$i] =~ m/<IMG\s+([^>]+)>/ig)

##</code><code>##

s/<IMG\s+([^>]+)>/ig//ig