perl -le 'chop gt print if s qq socket y qx cmp s q qq 
          or uc tr qw s my not vec eq abs do le chop q'