my @keywords = qw/ foo !bar baz /;
my @exclude = extract { s/^!// } @keywords;