@file_list = qw(file1.log file2.txt file3.log file4.txt ignorefiletype.bin file5.conf); @file_list_for_processing = grep /log|txt|conf/,@file_list; foreach $file (@file_list_for_processing) { print "$file\n"; }