Select Code to Download

         print "tag \t= $tag\n";
         my $RC_tag = reverse($tag);
         print "RC_tag \t= $RC_tag\n";
         $RC_tag =~ tr/ACTGactg/TGACtgac/;
         print "RC_tag \t= $RC_tag\n";

 tag         = ACGACACGTAT
 RC_tag      = TATGCACAGCA
 RC_tag      = ATACGTGTCGT

        my $tag = $tag_obj->seq;
        print "tag = ",$tag,"\n";
        my $RC_tag = reverse $tag =~ tr/ACTGactg/TGACtgac/;