$contents=~s!<IMG\s(.*?)>!<IMG $1 alt="text">!sig;

##</code><code>##

$contents=~s!<IMG\s(.*?)>!<IMG $1 alt="text">!sig if $1!~m/alt/!;