if (($seq =~/[A|T|G|C]/) && ($lenseq == 19))
    {
        print "$seq\n";
    }
    else {print "error log file";} # here I want to print those fragemnts whose length is either less than or greater than 19 and if the fragments contains based other than [ATGC]