#!/usr/bin/perl -s
$num = 0;
while (<>) {
	next if (/^#/);
	$flag = 1 if (/^CLUSTAL W/);
	next if ($skip_header && ! $flag);
	if (/^([^ ]+)[ ]+([^ ]+)$/) {
		$name = $1;
		if (! defined($seq{$name})) {
			$name[$num] = $name;
			$num++;
		}
		$seq{$name} .= $2;
	}
}
for ($i = 0; $i < $num; $i++) {
	print ">$name[$i]\n";
	print "$seq{$name[$i]}";
}
