Select Code to Download

if( $args !~ / (*FAIL)
   | \-rs(\s+)(\S+) 
...
   | \-P (\s+)(\S+)
   | \-p (\s+)(\S+)
   /x ){ ... }

c:\@Work\Perl\monks>perl -wMstrict -le
"use 5.010;
...
  -------
for 'ppp' string
  -------