hello.pl
hTllo.pl
hVllo.pl
hQllo.pl

##</code><code>##

hello.pl
hQllo.pl

##</code><code>##

########################################################

#!/usr/bin/perl -w
my @{Files};
my ${FileName}      = "h[[^TV]]*.pl";
my ${f}             = "";

@Files  = <temp\${FileName}>;

printf ("\n##############[ ${FileName} ]####################\n");
foreach ${f} (@Files)
  { printf("${f}\n");

  }
printf ("##################################\n");

########################################################
##</code><code>##

##############[ h[[^TV]]*.pl ]####################
temp\hTello.pl
temp\hVello.pl
##################################