Select Code to Download

$ perl -lE " open ARGV, q[<], \qq[0$/0$/0]; while ( my $line = <> ) { 
+say q[!!],!!($line) } say $. "
!!1
!!1
!!
3

$ perl -e " print qq[0\n0\n0] " > 3zeros

...
!!1
!!
3