m/(a|b)+/  # match any sequence of  "a" and "b" characters
             # in any order.

##</code><code>##

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

use strict;

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

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