perl -i.OLD -nle "$re=qr(^(#?)\s*(10\.10\.1\.2.*));if(/$re/){$1?print $2:print qq(#$2)}"
     %WINDIR%\Sysnative\drivers\etc\hosts