in reply to sprintf the last 2 digits
perl -le '$_=shift;print((split//)[-2,-1])' 2003 perl -le 'print((split//,shift)[-2,-1])' 2003 [download]
perl -le '$_=$,=q,\,@4O,,s,^$,$\,,s,s,^,b9,s,$_^=q,$\^-]!,,print' [download]