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";
}