#!perl

use strict;
use warnings;

my $text = q~"bla blubb \" <invalid html="abc>~;
$text =~ s/(<=\\)"/\\"/g;

print $text;