use File::Find::Rule;

my @files = File::Find::Rule->file()
    ->not( File::Find::Rule->new->name("*.[!ao]") )
    ->in(".");

print join("\n", @files), "\n";