use strict;
use warnings;
my $topdir = '/home/ansh/perlmonks';
opendir(HU, "$topdir");
my @files = grep(/\.txt$|.TXT$/,readdir(HU)); closedir(HU);
#print "@files";
#my $ucount = 0; 
foreach my $file(@files)
{
 #my $frame = $files[$ucount]; 
 if($file =~ /^p(1|2|3)/)
 {
 print "$file\n";
 # my $frameu = my $frame; 
 }
 else
 {
  #print "$frame"; 
 }
# $ucount++; 
}