sub f { 'network' =~ /^network$/g } print f()?1:0, "\n" for 1..6; #### 1 0 1 0 1 0