print (grep(/\d/,@{$current_month[-1]}))[-1];