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";

##</code><code>##

 tag         = ACGACACGTAT
 RC_tag      = TATGCACAGCA
 RC_tag      = ATACGTGTCGT

##</code><code>##

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