use strict;
use warnings;
my $topdir = 'D:/PGN/ELSEVIER/FNS/1(1)/press';
opendir(HU, "$topdir");
my @files = grep(/\.txt$|.TXT$/,readdir(HU));
closedir(HU);
my $ucount = 0;
foreach(@files)
{
my $frame = $files[$ucount];
if($frame =~m#^partial_pressps_report#gs)
{
my $frameu = my $frame;
}
else
{
print "$frame";
}

$ucount++;
}