use warnings;
use strict;

print "Using __DATA__ sample cns file:\n";
#chomp($t = <STDIN>);

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

my $sequence="";
my $chro;

foreach my $line (@data) {
    if ($line =~ /^\@/) {
        print $chro if length $chro;
        $chro = $line;
        print $sequence;
        $sequence = "";
    } elsif ($line =~ /^[a-zA-Z]/) {
        $sequence .= $line;
    } else { print "no match: \$line=$line\n" }
}

#prints the last one, I'm sure theres a better way
print $chro if length $chro;
print $sequence,"\n";
    
__DATA__
@chr1
ACAAGATGCCATTGTCCCCCGGCCTCCTGCTGCTGCTGCTCTCCGGGGCCACGGCCACCGCTGCCCTGCC
CCTGGAGGGTGGCCCCACCGGCCGAGACAGCGAGCATATGCAGGAAGCGGCAGGAATAAGGAAAAGCAGC
@chr2
CTCCTGACTTTCCTCGCTTGGTGGTTTGAGTGGACCTCCCAGGCCAGTGCCGGGCCCCTCATAGGAGAGG
AAGCTCGGGAGGTGGCCAGGCGGCAGGAAGGCGCACCCCCCCAGCAATCCGCGCGCCGGGACAGAATGCC
@chr55
CTGCAGGAACTTCTTCTGGAAGACCTTCTCCTCCTGCAAATAAAACCTCACCCATGAATGCTCACGCAAG