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

##</code><code>##

$str =~ s/^$pattern//;
@ar = split(/$pattern/, $str); 

##</code><code>##

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