#!/bin/env perl

use strict;
use warnings;

use lib qw{blib/lib};

use Regexp::Wildcards;
use Data::Dumper;

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;
