#!/usr/bin/perl
use strict;

while (<>) {
  # see perldoc perlvar
  local $/ = local $\ = "\015\012";

  # work and modify $_

  # print $_
  print;
}