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