use strict;
use warnings;
my $dirname = "/home/hfob";
opendir my $DH , $dirname or die "failed to open $dirname ($!)\n";
my @files = grep { /\.(html?|txt|pdf|ppt|csv|doc)$/i} readdir $DH;
print "$_\n" for @files;
closedir $DH;

##</code><code>##

my @files = grep { /\.(html?|txt|pdf|ppt|csv|doc)(\.|$)/i} readdir $DH;