Select Code to Download

#!/usr/bin/perl
use strict;
...
    $count++;        
}
close (A); close (X); close (Y);

K-ras 132       caggctcaggacttagcaa     GCUCAGGACUUAGCA AAUUGCUAAGUCCU
+GAGCCUG   47.6    41.9    19      15      21
K-ras 135       cttagcaagaagttatgaaa    AGCAAGAAGUUAUGG AAUCCAUAACUUCU
+UGCUAAG   33.3    36.5    19      15      21
K-ras 133       ggcycaggacttagcaaga     UCAGGACUUAGCAAG AAUCUUGCUAAGUC
+CUGAGCC   47.6    39.2    19      15      21
K-ras 134       caggacttagcaaoooaagtt   GACUUAGCAAGAAGU AAAACUUCUUGCUA
+AGUCCUG   38.1    36.5    19      15      21

My output:
Error: Target sequence # 2: [CTTAGCAAGAAGTTATGAAA] is of 20-bp.
...
Error: Target sequence # 3: [CAGGACTTAGCAAOOOAAGTT] has bases other th
+an ATGC.
Error: Target sequence # 3: [CAGGACTTAGCAAOOOAAGTT] has bases other th
+an ATGC.
Error: Target sequence # 3: [CAGGACTTAGCAAOOOAAGTT] is of 21-bp.