use warnings;

print "Please enter the cns file:\n";
chomp($t = <STDIN>);

open(THE, $t) or die "Can not open file: $!\n";
@data = <THE>;
close THE;

$sequence = '';
$end      = 0;

foreach $line (@data) {
	if ($line =~ /^\@/) {
		$chro = $line;
	} elsif ($line =~ /^[a-zA-Z]/) {
		$sequence .= $line;
	} else {
		$end++
	}
}

$sequence =~ s/\s*$//g;

print $chro,     "\n";
print $sequence, "\n";