-print "For this system, type is $type\n";
-print $_, ' => ', wc2re($_ => $type), "\n" for @ARGV;
+my $rw = Regexp::Wildcards->new(
+ do => [ qw/brackets/ ],
+ capture => [ qw/single/ ],
+);
+
+use Data::Dumper;
+print Dumper($rw);
+
+$rw->capture(add => [ qw/brackets any greedy/ ]);
+print Dumper($rw);
+
+print $_, ' => ', $rw->convert($_), "\n" for @ARGV;