Help for this page
$_ = "cat dog"; print 'match' if /^(?!cat)/; print 'no match' unless /^(?!cat)/;
no match