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