my($f,@r)=split//,$_;
my$l=join"",@r;
++$l;
$_=$f.$l;
print $_;

##</code><code>##

#23456789#123456789#1234567
($_,$b)=/(.)(.*)$/;$_.=++$b

##</code><code>##

++substr$_,1

##</code><code>##

perl -le '$_=sa9999;++substr$_,1;print'

##</code><code>##

$_=$,=q,\,@4O,,s,^$,$\,,s,s,^,b9,s,
$_^=q,$\^-]!,,print