Although I released it as a joke module, Acme::What does the trick!

use 5.010;
use strict;
use warnings;
use Acme::What;
sub WHAT { +shift }

my $var = what \\foo;
say $var;
[download]

I wonder if I should create a slightly saner version along the lines of the Perl 6 Q operator that moritz mentioned?