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