$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");


##</code><code>##

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

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

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

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

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

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

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

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

$qq2 = qq[
'funny' # :-\]
];

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