#!/usr/bin/perl -w

opendir(DIR, "/your folder path");
@files = grep(/160526GRAD-T\d{1,3}$/,readdir(DIR));                                                                          
closedir(DIR);

foreach $file (@files) {
   print "$file\n";
   }