11.3. Introduction to Regexes

my $str = "Some string here";
if ($str =~ /ome/) {
    print "There is a match\n";
}

if ($str !~ /s r/) {
    print "No match\n";
}