convert colorspace from SOLiD to basespace using STDIN

color2basespace.pl

#!/usr/bin/perl -sw

while (<>) {
    if(!(/^[ACGT0123NX\.]+$/)){
        print;
        next;
    }
    while(/[ACGT][0123]/){
        s/A0/AA/;s/C0/CC/;s/G0/GG/;s/T0/TT/;
        s/A1/AC/;s/C1/CA/;s/G1/GT/;s/T1/TG/;
        s/A2/AG/;s/C2/CT/;s/G2/GA/;s/T2/TC/;
        s/A3/AT/;s/C3/CG/;s/G3/GC/;s/T3/TA/;
    }
    print;
}