my @wds = split(/[^\w.]+/); shift @wds for 1 .. 2;