Homework 5. Extract a sequence MKKTGIKG from ASMKATAHQMKKTGIKGMSTYALLRL and print it out in a file
From Biolecture.org
It is incheon`s idea
#!/usr/bin/perl
use strict;
use warnings;
my $string = 'ASMKATAHQMKKTGIKGMSTYALLRL';
my $string1 = 'ASMKATAHQMKKTGIKGMSTYALLRL';
$string =~ s/MKKTGIKG//;
print $string1;
print "\n";
print $string;
