Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
use Algorithm::Loops qw(MapCarE);
...
}
[shift =~ /\[\w+\]|\w/g],    # split source into chars or char classes
[split //, shift];        # split target into chars

Select or download this

D:\temp>mm [TCG]GGGG[AT] AGGGGC
A !~ [TCG]
G ~~ G
...
G ~~ G
G ~~ G
C !~ [AT]