$hd = <<'__EOS__';
'\\\\' =~ /^..$/
__EOS__

$q = q[
'\\\\' =~ /^..$/
];

$q2 = q[
'\\\\\\\\' =~ /^..$/
];

print($hd); print(eval($hd) ?1:0, "\n");
print($q ); print(eval($q ) ?1:0, "\n");
print($q2); print(eval($q2) ?1:0, "\n");

$hd = <<'__EOS__';
'[]' =~ /\[\]/
__EOS__

$q = q[
'[]' =~ /\[\]/
];

$q2 = q[
'[]' =~ /\\[\\]/
];

print($hd); print(eval($hd) ?1:0, "\n");
print($q ); print(eval($q ) ?1:0, "\n");
print($q2); print(eval($q2) ?1:0, "\n");

$hd = <<'__EOS__';
'funny' # :-]
__EOS__

# Syntax error
# ------------
# $q = q[
# 'funny' # :-]
# ];

$q2 = q[
'funny' # :-\]
];

print($hd); print(eval($hd) ?1:0, "\n");
print($q2); print(eval($q2) ?1:0, "\n");