if ($string =~ m/<reg.Ex.>/) { ... }