Select Code to Download

use strict;

...

print "Sequence is ", in_sequence($seq1)?"good":"bad", "\n";
print "Sequence is ", in_sequence($seq2)?"good":"bad", "\n";

use strict;

...
print "Sequence is ", in_sequence_debug($seq1)?"good":"bad", "\n";
print "-"x40, "\n";
print "Sequence is ", in_sequence_debug($seq2)?"good":"bad", "\n";

Value of OK is 1
a - a Ok
...
d - e Ok
Value of OK is 1
Sequence is good

use strict;

...
print "Sequence is ", in_sequence_debug($seq1)?"good":"bad", "\n";
print "-"x40, "\n";
print "Sequence is ", in_sequence_debug($seq2)?"good":"bad", "\n";

Value of OK is 1
a - a Ok
...
d - e Ok
Value of OK is 0
Sequence is bad