Проблема с разделителем новой строки в Perl

У меня есть файл, который использует CR/LF для разделения записей, но отдельные записи иногда содержат LF.

while (<$in>)
{ 
    #extract record data
}

Я пытаюсь прочитать этот код, как указано выше, и этот (, как я и ожидал, )разбивает записи, содержащие только LF. Однако я ожидал, что переназначенный$/решит эту проблему, но, похоже, это заставляет меня читать весь файл за одну итерацию.

$/ = "\r\n";
while (<$in>)
{ 
    #extract record data
}

Кто-нибудь здесь, кто может предложить рабочее решение?

Я использую Activestate Perl в Windows.