$n = 0;
$html_file_slurped_to_a_scalar =~ s/<img .*?>/«TOKEN_$n++»/gis;

##</code><code>##

Unrecognized character \xAB at /path/foo line 25.