H:\>perl -e "$_='a';/[]a]/?print 'Y':print 'N'"
Y
H:\>