foreach (split /\n/, $raw_data) {
    ...
}