Select Code to Download

$ cat junk
pl

$ cat junk2
pl

$ perl -nE 'say +(/p.{2,6}/) ? "match" : "no match"' junk
match

$ perl -nE 'say +(/p.{2,6}/) ? "match" : "no match"' junk2
no match

$ cat -vet junk
pl^M$

$ cat -vet junk2
pl$