sub line { ( "*" x 70 ) . "\n" }

print join("\n",
           line(),
           $header,
           $allowedUsers,
           $permitRootLogin,
           $permitEmptyPasswords,
           $protocol,
           $ignore,
           $client,
           $allowedUsers,
           line()
          );
# Update: I know someone will suggest it if I don't.
# Instead of "sub line" you could do-
#   use constant LINE => ( "*" x 70 ) . "\n";
#      -or-
#   my $Line = ( "*" x 70 ) . "\n";