c:\@Work\Perl\monks>perl -wMstrict -le
"my $interp = 'a.b';
 my $string = qq{--\Q$interp\E--};
 print qq{'$string'};
 ;;
 my $strung = qq{--$interp--};
 print qq{'$strung'};
"
'--a\.b--'
'--a.b--'