state=$state zip=$zip phone=$phone #### my $state = "IA"; my $zip = "44444"; my $phone = "343-343-3443"; open(FILE, "file.txt") or die "oops $!"; my @contents = ; close(FILE) or die "oops $!"; print @contents; #### state=$state zip=$zip phone=$phone #### state=IA zip=44444 phone=343-343-3443