my $text = qq~dies ' ist ein ' "" test~;
$text =~ s/(['"])/\\$1/g;
print $text;