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";