$nameWithoutFastaSign =~ tr/>//d; print "$nameWithoutFastaSign.fasta\n";