state=$state
zip=$zip
phone=$phone

##</code><code>##

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

print @contents;

##</code><code>##

state=$state
zip=$zip
phone=$phone

##</code><code>##

state=IA
zip=44444
phone=343-343-3443