my @lines = split "\n", $record;