Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...
    
    return $str1 !~ /[^\x00]/;
}

Select or download this
```
ATGNCNC eq ATGACNN
ATGNCNC ne TTGACNN
```