Select Code to Download

use strict;
use warnings;
...
$footprint_lnk =~ s/ /\$\|/g;
print "footprint_lnk = $footprint_lnk\n\n";
# footprint_lnk = lnk$|LNK

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