perl -le 'exp tr qw s my not vec eq abs do le chop q ge print lc if sort s qq socket y qx cmp s q qq or rand chop'