#!/usr/bin/perl

while (<>) {
	if (/^>/) {
		s/^>[ ]*/>/;
		if (defined @lines) {
			$lines[1] =~ s/^/[/;
			$lines[$#lines] =~ s/$/]/;
			print join('',@lines);
			undef @lines;
		}
	} else {
		s/[^A-Za-z\n]//g;
	}
	push(@lines, $_);
	$ln++;
}
if (defined @lines) {
	$lines[1] =~ s/^/[/;
	$lines[$#lines] =~ s/$/]/;
	print join('',@lines);
}
