in reply to Another for those who love the Regular Expression questions...
@parts = grep /\w/, (split /\"([^\"]*)\"|\s/, $string);
An electronic device
Being the designated driver
Spending time with a celebrity
I never won anything
I never play the lottery
I haven't checked my spam folder recently
Results (380 votes). Check out past polls.