use Data::Dump;
my $var = '"T::c"';
dd $var;               # $var eq "\"T::c\""
$var =~ s/^"(.*)"$/$1/;
dd $var;               # $var eq "T::c"