my @wds = split(/[^\w.]+/);
@wds = splice(@wds,2);