#!./perl -Dx

$foo !~ /foo/;