$r = index $lcstring, $val;;
$ret = substr $string, $r, length $val;