Source:
[src]$DNA="ATCG";
@show=split( '',$DNA);
print @show[0],@show[1],@show[2],@show[3];[/src]

Output:
[src]ATCG[/src]