Select Code to Download

my $re = new Regexp($pattern);
my $value = $re->substitute($value, replacement, $flags);

package Regex;

...
}

1;

#!/usr/bin/env perl

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

case_sens_re_obj match: NO
case_insens_re_obj match: YES
case_sens_re_obj substition: ABC
case_insens_re_obj substition: A_C