# Check the log file to determine scp success or failure
open(MYLOG, "$log_file") or die "Can't open the log file $log_file";
@raw_data=<MYLOG>;
close MYLOG;
foreach $line (@raw_data){
	print $line;
# I am struck for logic comparing words...
}