use Cwd;
$MyPlace = cwd(); 
opendir(DIR, $MyPlace)|| die "Error";
while ( my $File = readdir(DIR)) {
 push(@Files, $File) if (!-d $File && $File =~/I/i);
}
closedir (DIR);