The first argument of split is a regular expression, use it like this,

while (<FH>) {
    chomp;
    my ($first, $second, $third, $fourth) = split /\+|\s/;
    # do stuff
}
[download]

I changed your variable names to look less like an array, and added sigils to make it look like perl.