use strict;
use warnings;

use File::Edit::Portable qw(recsep platform_recsep);

$/ = recsep('file.txt'); # set the recsep to that of a file

# or

$/ = platform_recsep();  # set the recsep to that of the local platform