Select Code to Download

my ($name, $email, $text) = split /,/, $_, 3;

my ($name, $email, $text, $status) = split /,/, $_;