my @image_files = grep{/\.jpg$|\.gif$|\.tiff$|\.tif$/i}readdir $target_dir;
my @video_files = grep{/^VID.+|\.3gp$|\.mp4$|\.avi$/i}readdir $target_dir;