#!/usr/bin/perl

use strict;
use warnings;

my @files = (' ', ' . . ', ' .. ', '         ', ' .      ');

foreach (@files) {
    print "[$_] - ", -e $_ ? "yes\n" : "no\n";
}
__END__
[ ] - yes
[ . . ] - yes
[ .. ] - yes
[         ] - yes
[ .      ] - yes