Select Code to Download

\A ((?-s: .+)) .+ ((?-s: .+)) .+ ((?-s: .+)) \z
\A ((?-s: .+)) \z
\A ((?-s: (?s: .+))) \z

^ ( $re_nonl ) $re_all ( $re_nonl ) $re_all ( $re_nonl ) $
^ ( $re_nonl ) $
^ ( $re_all ) $

qr{(?mo:...)(?ds:...)}
qr{(?mo:...(?ds:...)...)}

qr{(?mo-ds:...)(?ds-mo:...)}mods
qr{(?mo-ds:...(?ds-mo:...)...)}mods

#!/usr/bin/env perl -l

...
is($gotBiso, $expB, 'testBiso');
is($gotCiso, $expC, 'testCiso');
is($gotD, $expD, 'testD');

1..7
ok 1 - testA
...
ok 5 - testBiso
ok 6 - testCiso
ok 7 - testD