var $haystack = abcdefghijklm var $needle = Hi print Before needle
var $position = call stristr $haystack=$haystack; $needle=$needle; $before_needle=1 print haystack = $haystack
print needle = $needle
print position = $position
print After needle
var $position = call stristr $haystack=$haystack; $needle=$needle; $before_needle=0 print haystack = $haystack
print needle = $needle
print position = $position