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