#!/usr/bin/perl -l
use strict;
use warnings;

my @files = grep /^foo(?!bar)/, glob("foo*");

print for @files;