#!/usr/bin/perl
use strict;
use Data::Show;


# rm /tmp/*.txt
# rm /tmp/*.csv
# rm /tmp/*.csv.1
# rm /tmp/*.xls
# rm /tmp/*.xlsx
# rm /tmp/*.TXT
# rm /tmp/*.TXT.1
# rm /tmp/*.csv.*

my $some_dir = '/tmp';
opendir(my $dh, $some_dir) || die "can't opendir $some_dir: $!";
my @mylist = grep { /^*(\.*)?\.(txt|csv|csv\.*|xls|xlsx)$/i && -f "$some_dir/$_" } readdir($dh);
closedir $dh;

show @mylist;
show scalar(@mylist);

foreach my $list (@mylist) {
	print "$some_dir/$list";
    if (-e "$some_dir/$list") {
    	my $cmd = "unlink $some_dir/${list}";
    	print $cmd . "\n";
        system ("unlink $some_dir/${list}");
    }
}

1;