$subst = q($\backslash$);
$string =~ s/\\/$subst/og;