Perl Regex: lookahead & lookforeword matching

#lookahead & lookforeword matching ___FCKpd___0 = "tom cat"; if ( /tom(?=cat)/ ) { print "find tom, follow by cat/n"; } if ( /(?!tom)cat/ ) { print "find cat, and tom is in front of 'cat'/n"; }