$teststr1= quotemeta 'perl.org';
# 'perl\.org'