$string = '8\.' if $string eq '8\\.' or $string eq '8__BACKSLASH__.',