Select Code to Download

perl -le '$_=shift;print((split//)[-2,-1])' 2003
perl -le 'print((split//,shift)[-2,-1])' 2003

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