$var = '$varnameA';
$var =~ s/^(\W)//;
print "Symbol: $1\tVariable: $var\n";