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

my $text  = 'abcd';
my $regex = qr/$text/;

print "\n\$text = |$text|    \$regex = |$regex|\n\n";
__END__

Output:

$text = |abcd|    $regex = |(?^:abcd)|