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

my $re = qr(/);

$re =~ s!/!\\/!g;
my $code = "if (\$data =~ /$re/) { blah() }";

my $data = '/';
eval $code;

sub blah {
    print "hi"
}