package Regex;

use strict;
use warnings;

sub new {
    my ($class, $pattern, $flags) = @_;

    my $flag_part = defined $flags ? "(?$flags)" : '';
    my $re_part = "\Q$pattern";

    return bless qr{$flag_part$re_part}, $class;
}

sub match {
    my ($self, $str) = @_;

    return $str =~ $self ? 'YES' : 'NO';
}

sub replace {
    my ($self, $str, $new) = @_;

    $str =~ s/$self/$new/;

    return $str;
}

1;