if ($File::Find::name =~ m/\.txt$/i){
   $zipped = $zip->addFile( $File::Find::name );
}