while (defined ($buf = <$new_sock>))
{
    if ($buf =~ /"END"/)
    {
    }
}
----
while (defined ($buf = <$new_sock>))
{
    chomp $buf;
    if ($buf eq '"END"')
    {
    }
}
[download]

------
We are the carpenters and bricklayers of the Information Age.

Don't go borrowing trouble. For programmers, this means Worry only about what you need to implement.