$ perl -Mstrict -w
print my $var = '\utext';
"Text" =~ m/$var/ && print "matches\n";
__END__
Unrecognized escape \u passed through in regex; marked by <-- HERE in m/\u <-- HERE text/ at - line 2.
\utext$ _