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