I guess you meant to write if ($string =~ /(ab|ac|ad|ba|bla|etc)/) {print $1}

... with a set of parantheses around what you want to match.

There's index to tell the position of a substring in a string.

Cheers, Sören