>perl -le "print(   qq{\n} =~ /[^\[\]]/   ?1:0)
1