do => [ qw/brackets/ ],
capture => [ qw/single/ ],
);
-
-use Data::Dumper;
-print Dumper($rw);
-
+$rw->do(add => [ qw/jokers/ ]);
$rw->capture(add => [ qw/brackets any greedy/ ]);
-print Dumper($rw);
print $_, ' => ', $rw->convert($_), "\n" for @ARGV;