$str = "ABCDEFGHIJKLM";

while ($str =~ /(BC|GH|LM)/g) {

  print "matched $1\n";
}

##</code><code>##

matched BC
matched GH
matched LM