Select Code to Download

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

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

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