This from ozboomer's OP

if ($str =~ /^$buf/i) { ... }

indicates a case-insensitive match is required, so index would not be appropriate.