I did a script in Perl that breaks several sequences of a multifasta file, but I need remove a part of string of header.

For example:...