$ perl -e 'print "broken\n" if "foo"  =~ /[.]/'
   $ perl -e 'print "ok\n"     if "foo." =~ /[.]/'
   ok