Select Code to Download

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

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

++substr$_,1

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

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