$DNA="CTGACTG";$d="TG";$n=index($DNA,$d,0);$n+=2;$new=substr($DNA,$n,2);print"$new";
Standard input is empty
AC
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!