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