if ($string =~ /ab|ac|ad|ba|bla|etc/) {print $1}