while (<SSHD_CONFIG>) {
    s/^port.+/Port $sshport/i;
    print SSHD_CONFIG_NEW;
}