# Doesn't DWIM
$data =~ s/\012/\015/;
$data =~ s/\015+/\015/;
@records = split /\015/, $data;