# Remove fasta header line
if ( $para =~ s/^>(.*)//m ){
    $name = $1;
};
# Remove comment line(s)
$para =~ s/^\s*#.*//mg;

$para =~ tr/\r\n//d;