my @f = <*.txt>;
@f = map { unlink $_; $_ }
     grep { /\.txt$/i } @f;