use v5.12;
use warnings;
use Data::Dump qw/pp dd/;


my $globber = join ",", (":", ";", "=", "-");

for my $line (<DATA>) {
    chomp $line;
    say "--- $line";
    $line =~ s/\s/{$globber}/g;
    say pp [ glob($line) ];
}

__DATA__
/a/b/c/d/e/fi le
/a/b/c/d/e/fi l e
/a/b/c/d/e/f i l e
/a/b/c/d/e/f i  l e