Select Code to Download

     ($left,$middle,$right) = $sequence =~ m/(\w{$_})?(\w{1})?(\w*)/;

use strict;
use warnings;
...
        my ($right)  = substr($sequence,$i+1);
    }
}