Select Code to Download

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

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

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