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

my $var = what \\foo;
say $var;