#!/usr/bin/perl

my $k = "CCATGNNNAACCNNATGNNTAGCC”;
print substr($k, 2, 9), "\n";
print substr($k, 15, 8), "\n";