Help for this page
my ($left,$middle,$right) = $sequence =~ m/(\w{$_})?(\w{1})?(\w*)/; ^
A CTGACN A C TGACN ... ACTG A CN ACTGA C N ACTGAC N