$b= "B";
*y= *b;
print "$y\n";
*y= \*b;
print "$y\n";