$\ = "\n";
my $x='E:\\th\\foo';
print qr/^$x/;           # start,"E",":",tab,"h",formfeed,"o","o"
print qr/^\Q$x/;         # start,"E",":","\","t","h","\","f","o","o"
print qr/^\$x/;          # start,"$","x"
print qr/^\\$x/;         # start,"\","E",":",tab,"h",formfeed,"o","o"
print qr/E:\\th\\foo/;   # "E",":","\","t","h","\","f","o","o"
print qr/E\:\\th\\foo/;  # "E",":","\","t","h","\","f","o","o"
print qr/E\\:\\th\\foo/; # "E","\",":","\","t","h","\","f","o","o"