#!/usr/bin/perl -w

$dir = "(directory path)";

print "Starting Delete Process\n\n";

opendir(DIR, "$dir") || die "No $dir: $!";
@files = grep(!/^\./, readdir(DIR));
@files = sort @files;
closedir(DIR);

foreach (@files)
{
	print $_, "\n";
        if (/\.log$/i || /\.\d+\w+\-\d+\wm$/i || /\.txt$/i)
        {
        unlink ("$dir/$_") if (-f "$dir/$_") || 
			print "Unable to delete $_: $!";
	}
}