use strict; use warnings; 

my $dna3='ATCGC'; 
my $dna4='AAATTGC'; 

my $after=0; 
$dna3=substr($dna3,$after,1).$dna4.substr($dna3,$after+1); 
print $dna3."\n";