var $haystack = abcdefghijklm var $needle = g var $position = call strstr $haystack=$haystack; $needle=$needle; $before_needle=1 ; print haystack = $haystack print needle = $needle print position = $position