Added perl script for removing block fasta format