my $string = '.+_*|\d|\w\w\w';
my $re_text = join '|', map {"\Q$_\E"} split /\|/, $string;
... =~ /$re_text/;