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