perl -nle 'tr/A-Z/a-z/;$m=length();reverse(substr($_,($m/2)+($m%2))) eq substr($_,0,$m/2) ? print : next' /file/of/sequences/one_per_line