$ perl -e <<___
if(1) {
print 44;
}
___
No code specified for -e.

##</code><code>##

$ perl <<___
if(1) {
   print 44;
}
___

44
                           # arrow up
$ perl <<___
if(1) {
   print 44;
}
___

##</code><code>##

lanx@lanx-1005HA:/tmp$ ls |perl -n <<___
print if /a/
___
lanx@lanx-1005HA:/tmp$ ls |perl -ne '
print if /a/
'
atop.d
at-spi2
mkinitramfs_JrDw4Q
mkinitramfs-OL_Ahxk1r