#!/usr/bin/perl -w

use strict;

my $somedir = "/home/me/lala";
my $file;

opendir (DIR, $somedir);
  while ($file = readdir DIR) { 
    print "$file\n";
if ($file =~ /^example\.\d+\.txt$/) {
       print "  -- FOUND example: $file\n";
     }
   }

##</code><code>##

open (DIR, $somedir);

##</code><code>##

opendir (DIR, $somedir);