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

my $r = "ab+c*d";
my $rRegex = qr/$r/;
while (my $t = <DATA>) {
    if ($t =~ $rRegex) {
        print "MATCH: $t\n";
    }
}
__DATA__
abcd
aabbbd
acccd
dbca