<![CDATA[
#!perl -w
use strict;
# Look at a sequence and show its length, and both directions
my $string = "atttttgcgggccctcggg";
print "The string considered here is $string \n";
my $u = length($string);
print "The length of the read sequence is $u \n";
my $rev = reverse($string);
print "The string ( 3' to 5') read from left to right is $string \n";
print "The string ( 5' to 3') read from right to left is $rev \n";
# Show the sequence after substitution
# It certainly forces it to be at rich!
$string =~ tr/a/g/;
$string =~ tr/t/c/;
print "The string after replacement of oligonucleotides is $string \n";
exit(0);
]]>