#!/usr/bin/perl

use strict;
use MySequence2 qw(:DEFAULT $EcoRI);

my $sequence = 'gattccggatttccaaagggttcccaatttggg';
my $complement = reversec($sequence);

print "original = $sequence\n";
print "complement = $complement\n";

if ($complement =~ /$EcoRI/) {
   print "Contains an EcoRI site.\n";
} else {
   print "Doesn't contain an EcoRI site.\n";
}