perl -le 'print $/ eq "\n" ? "OK" : "NO"'