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