Help for this page
# assuming the raw data is in $line.
$line =~ m/^[^;]*;\s*([^;]*?)\s*;/
# $1 now holds whatever is between the second and third
# semicolon, leading and trailing spaces trimmed.
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 (426 votes). Check out past polls.