...

 foreach my $txt (@lines)
 {
   # replace HOST and IP with $hostname and $ipaddr
   $txt =~ s/HOST/$hostname/g;
   $txt =~ s/IP/$ipaddr/g;
   print $output "$txt\n";
 }