#!perl # Name: Searching for a variable string using index() # Require: 4 # Desc: # require 'benchlib.pl'; $a = "xx" x 100; $b = "foobar"; $c = "xxx"; &runtest(15, <<'ENDTEST'); $c = index($a, $b); $c = index($a, $c); $c = index($a, $b); $c = index($a, $c); ENDTEST