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