Select Code to Download

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

my $a='A';
print $a . $a+1 ;

my $a='A';
print "$a" . $a+1;
...
<code>
my $a='A';
print "$a" , $a++ ;

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