@ar = (split(/$pattern/, $str))[1..$n-1];