my @file_list = glob "./mypath/CHECK*.txt"; #### my @file_list = grep {! /_.*_/} glob "./mypath/CHECK*.txt";