$x = "aba";
print "$x\n" if index($x, "a", 2) == 2;