$ perl -E'say !$s++ ? 1 : 0 for 1..5;'
1
0
0
0
0

##</code><code>##

$ perl -E'say grep !$seen{$_}++, split //, "abracadabra";'
abrcd

##</code><code>##

svmon -Pt15 | perl -e 'while(<>){print if($.==2||$&&&!$s++);$.=0 if(/^-+$/)}'

   |
   v

svmon -Pt15 | perl -ne'print if$.==2||$&&&!$s++;$.=0if/^-+$/'

svmon -Pt15 | perl -nlE'say if$.==2||$&&&!$s++;$.=0if/^-+$/'