my $class = "large-image-right-landscape";
  $content =~ s{
    (        # start capture
      <img\s # opening of img tag
      [^>]*  # everything to the tag end
      >      # tag end
    )        # end capture
  }{
    <span class="$class">$1</span>
  }sigx;