If you would like to use supplied Perl index function, qualify it CORE::index.

Also, the second parameter should be a substring to match, not a regular expression. See index.

Good luck. -c