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