my ($s,$e)=map $_ + ($chunks[$_] =~ /\s/ ?
    ($_ >=0 ? 1 : -1 ) : 0) => 0, -1;