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

##</code><code>##

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