$_ = 'foobar'; 
/(.*)(?!bar)/;
print "$1\n"; 

##</code><code>##

$_ = 'foobar'; 
/(.*o)(?!bar)/;
print "$1\n";