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