if( /\S+,\S+/ ) # if some cell has a comma, fork (sort of)
    {
    push @stack, $` . $_ . $' for split /,/, $&;
    }