#!/usr/bin/perl

use strict;
use warnings;

my $dir = 'C:\Dokumente und Einstellungen\pktm';

opendir(DIR,$dir) or die $!;
my @files = map{$dir.'\'.$_}grep{-f $_ && $_ =~ /\./}readdir(DIR);
closedir DIR;

print $_,"\n" for(@files);