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