Select Code to Download

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

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

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

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

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