use File::Slurp qw(edit_file);

edit_file {
    s/$uname/$answer1/g;
    s/domainsuffix.net/$answer4/g;
} $hosts;