Help for this page
if ($shell ne "" and $shell !~ /false|null/) { # it's ok }
if ($shell ne "" and $shell !~ /false/ and $shell !~ /null/) { # it's ok }
"foo" =~ /foo/; print grep //, qw( bar foobar ); # foobar