###full Code
#!/usr/local/bin/perl -w 

use strict;

@ARGV = qw( /usr/dict/words);

while (<>) {
	print if  m/(p|e|r|l)+/;