use English; #so we can use $MATCH etc rather than $&, etc
my $x = "The Quick Brown Fox";
if ($x =~ /brown/i) {
    print "found '$MATCH', \n"; # "BROWN"
    print "preceded by '$PREMATCH', \n"; # "The Quick "
    print "followed by '$POSTMATCH', \n"; # "Fox"
}