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

##</code><code>##

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