Perl:
perl -e 'print map {(split(//))[0]} (q study abs, q chomp getc, q die bind, q lstat eval, q g u fag, q die bind, q lstat eval, q y u r gay, q wantarray qw, q y 4chan is gay, q crypt ungetc, q next warn, q eval time, q die bind, q keys break, q qw uniq)'