Select Code to Download

#!/usr/bin/perl --
use Regex::PreSuf;
...
]);
__END__
a(?:bcpwb(?:ln0[78]|nn(?:06|10))|desic(?:ln0[189]|nn05))

#!/usr/bin/perl --

...
print $ra->re;
__END__
(?-xism:a(?:bcpwb(?:nn(?:06|10)|ln0[78])|desic(?:ln0[189]|nn05)))