perl -ne 'print unless /\x1a/;' concatfile >x.txt