package MySequence;

use strict;
our $EcoRI = 'ggatcc';

sub reversec {
   my $sequence = shift;
   $sequence = reverse $sequence;
   $sequence =~ tr/gatcGATC/ctagCTAG/;
   return $sequence;
}

sub seqlen {
   my $sequence = shift;
   $sequence =~ s/[^gatcnGATCN]//g;
   return length $sequence;
}

1;