@ar = split(/$pattern/, $str); 
shift(@ar);