$Email_address eq $four;

##</code><code>##

$Email_address = $four;

##</code><code>##

open (FILE, "$data") or die "Failed to open $data: $!\n";