open (DIR, $somedir);
while ($_ = readdir DIR) { 
  print "$_\n";
  if (/^example([\d\.]+).txt$/) {
    print "  -- FOUND example" . $1 . ".txt\n";
  }
}