my $string = "[";
print "\Q$string";