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