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

##</code><code>##

# Works, but the map+chomp seems ugly
@records = map {chomp $_;  $_} split /^/xms, $data;