Select Code to Download

 my $simples = qr{\*\*};  # extensible by user.  Same opening and clos
+ing.
 my $ps= qr{(?<prematch>.*?)
...
     | \Z (*:nada)  # must be the last branch
    )
    }xs;