$ perl -Mre=debug -e 'my $x= "*"; /\Q$x.+/'
Compiling REx "\*\.\+"
Final program:
   1: EXACT <*.+> (3)
   3: END (0)
anchored "*.+" at 0 (checking anchored isall) minlen 3 
Freeing REx: "\*\.\+"