$ perl -E 'say "MATCHED" if q{   a.c   } =~ m/[^\s.]{3}/;'
$ perl -E 'say "MATCHED" if q{   a.c   } =~ m/[^\s]{3}/;'
MATCHED
$