正規表現にマッチする正規表現（未完成）

gistfile1.pl

#!/usr/bin/env perl
use strict;
use warnings;

use feature qw/say/;

my $char     = qr{[^\|\+\*\(\)\[\}\\]|(?:\\[\|\+\*\(\)\[\}\\])};
my $str      = qr{(?:${char}(?:[\+\*\?][^\+\*\?]?)?)+};
my $char_set = qr{\[${char}+\]};
my $regexp   = qr{(?:(?:\(\R(?:\|\R)*\))|(?:\R(?:\|\R)*)|(?:${str}|${char_set})+)*};

sub regexp_parser {
    my $regexp_str = shift;

    say $regexp_str =~ $regexp ? 'match!' : 'unmatch!';
}
# (.*)
# (.+)
regexp_parser('(.(.hoge|fuga))');