#!/usr/bin/perl

use strict;
use warnings;

my @strings   = ('ATGGCTAGTTTCAGT',
                 'GTTTATGGGTACGTGT',
                 'ATTGATACGGGTATTTAGGCTG',
                 'ATTAGGAAGTAGGACCCTAGG'
                 );
my $search       = 'TTT';
my $len = length($search);

my @newStrings = map {my $indx = index(substr($_,0,8),$search);
                      my $temp;
                      if($indx == -1){
                            $temp = $_;
                      }else{
                            $temp = substr($_,
                                          ($indx+$len),(length($_)-$indx-$len));
                      }
                      } @strings;

foreach my $indx1 (0..(scalar(@strings)-1)){
   print "$strings[$indx1] ---> $newStrings[$indx1]\n";
}

exit(0);


##</code><code>##


ATGGCTAGTTTCAGT ---> ATGGCTAGTTTCAGT
GTTTATGGGTACGTGT ---> ATGGGTACGTGT
ATTGATACGGGTATTTAGGCTG ---> ATTGATACGGGTATTTAGGCTG
ATTAGGAAGTAGGACCCTAGG ---> ATTAGGAAGTAGGACCCTAGG