#!perl

use strict;
use warnings;

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

print $text;