$html =~ s/<IMG[^>]+?(?:ALT="([^"]*)"[^>]*)>/[image: "$1"]/sgi;

##</code><code>##

<img foo><img alt="bar">
[image: ""][image: "bar"]

##</code><code>##

$html =~ s/\[image: ""\]/[image]/g;