$ perl -Mstrict -Mwarnings -E 'say "starting: " . scalar @ARGV; while(<>){chomp; say "$_\nremaining: " . scalar @ARGV}' foo bar baz

##</code><code>##

starting: 3
foo
remaining: 2
bar
remaining: 1
baz
remaining: 0