mfind /W /B "/(>.*)/\r\n$1\t/" original.fasta 
mfind /M /W "/^([ATGCMRWSYKVHDBN]+?)\r\n/$1/ig" original.fasta 
mfind "/>|([ATGC][AT][CG])\1{9,}|([ATGC][CG][AT])\1{9,}/i" original.fasta > original.temp1.fasta
mfind "/>|[ATGCMRWSYKVHDBN]{150,}/" original.temp1.fasta > original.result.fasta 
mfind /M /W "/\t\r\n>/>/g" original.result.fasta
mfind /M /W "/^>[^\n]*\t\r\n\z//g" original.result.fasta
mfind /W "/>.+>/>/g" original.result.fasta
mfind /W "/([ATGC][AT][CG])(\1{9,})|([ATGC][CG][AT])(\1{9,})/\[$1$2\]/" original.result.fasta
mfind /W "/(.*\[.*\][ATGCMRWSYKVHDBN]{20,500}).*/$1/" original.result.fasta
mfind /W "/.*([ATGCMRWSYKVHDBN]{500,}\[.*\].*)/$1/" original.result.fasta
del original.fasta original.temp1.fasta
rename original.fasta.old original.fasta