#!/usr/bin/env perl

use strict;
use warnings;

use FindBin;
use lib "$FindBin::Bin/../lib";

use Regex;

my $pat = 'b';
my $case_sens_re_obj = Regex::->new($pat);
my $case_insens_re_obj = Regex::->new($pat, 'i');

my $test_string = 'ABC';

print 'case_sens_re_obj match: ',
    $case_sens_re_obj->match($test_string), "\n";
print 'case_insens_re_obj match: ',
    $case_insens_re_obj->match($test_string), "\n";
print 'case_sens_re_obj substition: ',
    $case_sens_re_obj->replace($test_string, '_'), "\n";
print 'case_insens_re_obj substition: ',
    $case_insens_re_obj->replace($test_string, '_'), "\n";