$s =~ s/\b(?:a|about|above|across|after|afterwards)\b//g;