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