my $a='A';
  print "".$a, $a++;
  __END__
  AA

##</code><code>##

  my $a='A';
  print $a, $a++;