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