#!perl -p
1/!/0/