Select Code to Download

    map { push (@status, $_)    }
    map { split(/\n/,$_)        } $raw_data;

    @status = split /\n/, $raw_data;

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