==== Perl - Reading an entire file into a string ====
Option 1:
Use File::Slurp
$file_contents = read_file($wget_saved_filename);
Option 2:
open (READ_WGET_FILE, "<$data_dir/$wget_saved_filename");
$file_contents = do { local $/; };
close (READ_WGET_FILE);