my $hd = sub { '[]' =~ /\\[\\]/ };