print my $var = "\utext";
"Text" =~ m/$var/ && print "matches\n";