my $x = "the quick brown fox";
if ($x =~ /brown/) {print "found 'brown'\n"}