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

my $dir = ".";
opendir (my $dh, $dir )
	or die "Cannot open dir '$dir' :$!\n";
my @files;
while (my $file = readdir($dh) ) {
	push (@files, $file);
}
closedir($dh);

my @secure_files;
@secure_files = grep (/^secure (\. \d{1,2})?$/, @files);